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VORWORT 


Lieber Leser, 


das vorliegende Buch stammt nicht aus der Feder eines einzelnen 
Autors. Es ist vielmehr das Werk eines Autorenteams. 


Als Herausgeber danke ich dem Team ganz herzlich. Insbesondere gilt 
der Dank dem "Chef" des Teams und zugleich pädagogischen Leiter 
Herrn Raimund Grum, Darmstadt, sowie dem Informatiker und 
Spezialisten für knifflige, fachliche Fragen, Herrn Reinhard Hund, 
ebenfalls Darmstadt. Außerdem gilt ein ganz spezieller Dank den 
verständnisvollen Angehörigen aller Beteiligten, die während der 
Entstehungszeit des Buches auf das gesellschaftliche Beisammensein 
mit "ihren" Autoren fast völlig verzichten mußten. 


Das Ergebnis dieser harten Arbeit liegt vor Ihnen, lieber Leser! Denn 
Sie halten jetzt ein umfassendes und außerordentlich reichhaltiges 
Fachbuch in den Händen, das Ihnen das Tor zu Ihrem neuen 
Computer, dem Schneider >>CPC464<<, öffnet. 


Wir haben versucht, Ihnen den Einstieg in die neue Materie so leicht 
wie möglich zu machen. So finden sie zum Beispiel die vielen 
Programme des Buches alle auf einer Cassette, die Sie beim 
Heim-VERLAG beziehen können. Sie ersparen sich die riesige Mühe 
des Eintippens und können gleich zur Sache kommen. 


Doch noch ein weiterer Punkt ist von Bedeutung: 


Wenn Sie einmal Experte am Schneider-Computer geworden sind, 
werden Sie nach weiterer Literatur suchen. Auch diese finden Sie im 
Heim-VERLAG 


Wir haben mit der Erfahrung vieler Programmiererjahre für Sie ein 
Nachschlagwerk geschaffen, in dem Sie den gesamten Befehlssatz des 
Schneider-Computers >>CPC464<< finden. Es kommt aber noch 
vielmehr hinzu: 


Jeder Befehl ist nach einem klaren, leicht verständlichen Schema 
dargestellt und, was das Allerwichtigste ist, durch ausführliche 
Beispiele erläutert. 


Dieses Nachschlagewerk hat also neben seinem Charakter als Lexikon 
noch den unschätzbaren Vorteil, auch eine wertvolle Programmsamm- 
lung zu sein mit einem hohen Nutzwert für Sie als Programmierer. 
Und wie Sie richtig vermutet haben: Alle diese Programme finden Sie 
wieder auf einer Cassette, die Sie ebenfalls beim Heim-VERLAG 
beziehen können. 


Über den Inhalt des Buches und über die Art, wie Sie mit dem Buch 
arbeiten sollen, brauche ich im Vorwort nichts weiter zu sagen, denn 
das hat Herr Grum ausführlich und sehr verständlich in seiner 
Einleitung getan. 


Wenn Sie fachliche Fragen haben, so rufen Sie bitte nicht im 
Heim-VERLAG sondern in der Redaktion des Verlages an: Tel.: 
068151-33348. Noch lieber aber wäre es mir, wenn sie uns an die 
Redaktiönsanschrift schreiben: 
Redaktion des Heim-VERLAGS 
Binger Str. 10 


6100 Darmstadt 


KERKRKRKRKRRKKRKKK KK CK CK: KU 


Mit freundlichen Grüßen Darmstadt, den 23. August 1984 
Erhard Unger 
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l. Einleitung 


Der >> CPC 464 << ist sicherlich viel mehr als nur ein Gerät für 
Telespiele. Er besitzt viele gute Eigenschaften, die Sie schnell 
erkennen werden, wenn Sie durch dieses Standard-BASIC-Buch zum 
Ausprobieren und BASIC-Kennenlernen aufgefordert werden. 


Das Buch bietet Ihnen methodisch strukturiert die Grundlagen, die 
Sie benötigen, damit Sie selbst die ganze Palette des Program- 
mierens anhand von attraktiven Programmen erfahren. 


Lernen Sie durch dieses Standard-BASIC-Buch in BASIC denken, 
analysieren und programmieren. Ihr eigener Lernerfolg wird Sie 
auf jeder Seite des Buches anhalten, tiefer in die problemorien- 
tierte Arbeitsweise mit BASIC einzusteigen. Sie werden lernen, 
gezielt Problemstellungen in der für den Computer verständlichen 
Sprache BASIC zu formulieren und in ein Programm umzusetzen. 


Sie werden in die Materie des Programmierens einsteigen und 
zielstrebig zum selbständigen Programmieren geführt. Sie werden 
erstaunt feststellen, wie leicht es ist, die Vielseitigkeit von 
BASIC zu nutzen. 


Eine Programmiersprache zu beherrschen heißt, sie durch prak- 
tisches Anwenden am Computer zu erproben und begreifen zu lernen. 
Das sind die Ziele, die mit diesem Standard-BASIC-Buch angestrebt 
werden. 


Die Programmbeispiele sind auf die Zielrichtung abgestellt, so 
daß nicht allein fertige Programmlösungen geboten werden, sondern 
Programme, die die Kreativität fördern und die Platz für eigene 
Ideen lassen. Freiräume also für Erweiterungen jeglicher Art, 
weil nur dadurch die notwendigen Kenntnisse und Erkenntnisse 
möglich werden, die nicht allein durch "Abtippen" oder "Laden" 
irgendwelcher Übungsprogramme erlangt werden. 


Trotzdem bietet das Buch Lösungen für bestimmte Problemstellungen 
an, wie z. B. eines der Projekt-Programme "Zeichendefinition". 
‘Hier werden einerseits die Möglichkeiten des >> CPC 464 << auf- 
zeigt, andererseits dem Lernenden exemplarisch Programierpraxis 
vermittelt, die er für sich selbst nutzen kann. 


Il. Einleitung 





Auch die reine Information, das Nachschlagenkönnen, ist in dem 
Buch verwirklicht. Alle Schneider BASIC-Befehle sind schlagwort- 
artig in einer ausführlichen Form dargestellt. Das Stichwort 
alleine reicht für den Suchenden nicht aus. Selbstverständlich 
wurden das Format und der Anwendungszweck der Anweisungen alpha- 
betisch aufgeführt. 


Zudem wurde ein weiteres, nützliches Kapitel den Fehlermeldungen 
gewidmet. Hier findet man die deutsche Beschreibung aller Fehler- 
meldungen. Einige interessante Programme, die die Fehlermeldungen 
erzeugen, runden das Kapitel ab. 


2. Das Standard-BASIC-Buch als Dialogpartner 


Die Entstehung von Programmen 


Sie können fertige Programme - Software - kaufen, von einem Pro- 
grammierer zugeschnitten auf Ihren Anwendungsfall schreiben las- 
sen oder aber selber ein Programm schreiben. 

Allen drei Möglichkeiten haben eines gemeinsam, die Programme 
sollen einer Problemlösung dienen und immer gleichbleibende Tä- 
tigkeiten übernehmen. 


Entscheidend ist daher die Betrachtung des Problems oder korrek- 
ter die Problemanalyse, die die Basis für die Konzeption des 
Programms bietet. 

Gibt es für ein gestelltes Problem kein geeignetes, fertiges 
Programm, oder wollen Sie ein eigenes Programm schreiben, so läßt 
sich hier eine Empfehlung für die Vorgehensweise aussprechen: 


Von dem eigentlichen Problem bis zur eigentlichen Problemlösung 
lassen sich einzelne Stufen der Problemlösung bestimmen, die für 
das Schreiben des eigentlichen Programms sehr nützlich und be- 
stimmend sind. 


Stufen der Programmentwicklung: 


Il Stufe: Analyse des Problems 
Fakten und Teilprobleme werden betrachtet und der 
Umfang des zu lösenden Problems exakt bestimt. 


2. Stufe: Analyse der Datenströme 
Bestimmung der Datenströme, die zu vorgegebenen 
Zeitpunkten koordiniert ablaufen bzw. vorliegen 
müssen, damit ein sinnvoller Ablauf gewährleistet 
ist. 


3. Stufe: Analyse der Programmlogik 
Bestimmung der Tätigkeit, die zu einem bestimmten 
vorgegebenen Zeitpunkt vom Programm ausgeführt 
werden müssen, damit die analysierten Datenströme 
in ihrer logischen Reihenfolge fließen können. 
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2. Das Standard-BASIC-Buch als Dialogpartner 


4. Stufe: Deduzierung der Programmiersprache 
Die Analysenwerte ermöglichen nun die Festlegung 
auf eine bestimmte Programmiersprache, z.B. BASIC, 
FORTRAN oder PASCAL. Alle besitzen für bestimmte 
Problemlösungen sowohl Vor- als auch Nachteile. 


5. Stufe: Generierung des Programms 
Hier werden nun alle analysierten Größen in ein 
Programm umgesetzt. 


6. Stufe: Verifikation bzw. Falsifikation der Programmlösung 
Es muß nun in allen nur denkbaren Programnteilen 
eine Prüfung auf Richtigkeit in Bezug auf die 
Problemlösung durchgeführt werden. Erweist sich 
das Programm in der Programmlogik und in Steuerung 
der vorgegebenen Datenströme für richtig, so be- 
sitzen Sie ein sogenanntes "lauffähiges Programm". 


Das Lernen im Medienverbund 


Die schrittweise Heranführung an die eigene Entwicklung von 
BASIC-Programmen ist eine der Zielrichtungen in diesem Buch. 

Die Arbeitsstufen bilden in den einzelnen Kapiteln das Grundge- 
rüst des Lernens. Die Stufen der Programmentwicklung werden indi- 
rekt in jedem der einzelnen Kapitel an nicht zu komplexen Proble- 
men vorgestellt und mit Ihnen erarbeitet. 


Problem- und Programmanalysen sind ein wichtiges Element der 
vorgeschlagenen Übungen. 


Unterstützt werden Sie hierbei von den angebotenen "Hilfen zur 
Programmanalyse'" und den "Vorüberlegungen", die Bestandteile in 
den einzelnen Kapiteln sind. Es soll hiermit die Struktur des 
Programmierens deutlich gemacht und die Kenntnisse vermittelt 
werden, die es Ihnen erlauben, auch andere, nicht in diesem Stan- 
dard-BASIC-Buch thematisierte Anwendungsfälle mit BASIC zu lösen. 


2. Das Standard-BASIC-Buch als Dialogpartner 





Noch ein Hinweis für Ihre praktische Arbeit mit dem Buch als 
Ihrem Dialogpartner! 


Folgen Sie dem Rat und arbeiten Sie stets den Text des Buches in 


der Weise durch, daß Sie sofort und gleich alles am >> CPC 464 << 
ausprobieren. 


Nur in der Arbeit im Medienverbund: 
"Buch, Programmkassette und >> CPC 464 <<" 
erreichen Sie den gewünschten Erfolg! 


Also bitte keinen "Trockenkurs"! 


3. Grundsätzliches über BASIC 


BASIC ist ein Kunstwort, das aus den Anfangsbuchstaben der nach- 
stehenden englischen Worte zusammengesetzt ist: 


Beginner’s All-purpose Symbolic Instruction Code 


zu deutsch "symbolischer Allzweckbefehlscode für Anfänger". BASIC 
gehört zu dem Kreis der problemorientierten Programmiersprachen 
wie etwa COBOL, FORTRAN und ALGOL, wobei BASIC eine gewisse 
Ähnlichkeit mit FORTRAN besitzt. 


BASIC wurde Anfang der sechziger Jahre im Dartmouth College in 
den USA von den Professoren John. G. Kemeny und Thomas E. Kurtz 
geschaffen. Das angestrebte Ziel der beiden Sprachschöpfer war 
es, eine 


- leicht zu erlernende 
- interaktive und 
- leicht anzuwendende 


Programmiersprache zu gestalten, die der allgemeinen Programmie- 
rung dienen sollte. 


BASIC hat seinen Siegeszug aber erst durch seine Verwendbarkeit 
im Bereich der Mikrocomputer angetreten. Mikrocomputer werden oft 
auch als HOME-Computer bezeichnet, obwohl sie sich mehr und mehr 
als ernstzunehmende Partner im beruflichen Alltag durchgesetzt 
haben. 


BASIC läßt sich für mathematisch-technische und kaufmännische 
Programme, für einfache und komplizierte Unterhaltungsspiele, für 
Textbe- und -verarbeitung, prinzipiell für jede nur denkbare Art 
von Programmen verwenden. 


BASIC ist eine problemorientierte, aber eine einfach zu erlernen- 
de Programmiersprache. Kenntnisse von irgendwelchen Maschinen- 
sprachen sind nicht erforderlich. Kommandos bzw. Anweisungen an 
den Computer werden in knappen, englischen Worten eingegeben. Die 
Programme sind dabei "transportierbar", d.h. sie sind auf den 
unterschiedlichsten Computermodellen und -fabrikaten lauffähig. 
Es kommt also nicht darauf an, welchen Computer man einsetzt. 
Allerdings gilt diese Aussage mit gewissen Einschränkungen. 
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3. Grundsätzliches über BASIC 


BASIC hat im Verlaufe von 20 Jahren über 200 Dialekte entwickelt, 
so daß man folgendes feststellen kann: 


In der einen BASIC-Version gibt es Kommandos, die in der 
anderen Version fehlen und umgekehrt. 


Oftmals werden unterschiedliche Worte für ein- und die- 
selbe Funktion benutzt. 


Die Umwandlung von einem BASIC-Dialekt in einen anderen ist 
oftmals nicht besonders schwierig, jedoch recht lästig. 


Ihr >> CPC 464 << besitzt aber einen sehr umfangreichen BASIC- 
Wortschatz, der aus einem weitverbreiteten BASIC-Dialekt stammt 
und zusätzlich über einige sehr nützliche und interessante Gra- 
phik- und Sound-Anweisungen verfügt. 

Wenn Sie jetzt fragen, wo der Schneider >> CPC 464 << einzuordnen 
ist, so kann man sagen, daß er ebenso als HOME-Computer dienen 
kann, wie auch nach entsprechender Aufrüstung als Büro-Computer. 


Der BASIC-Interpreter 


Die meisten BASIC-Sprachprozessoren sind Interpreter. Unter einem 
Interpreter versteht man ein Programm, das BASIC - Kommandos in 
die Maschinensprache des Mikrocomputers übersetzt. Jeder Mikro- 
computertyp hat seinen eigenen BASIC-Interpreter; der Benutzer 
merkt davon jedoch nichts, er sieht nur ein- und dieselbe BASIC- 
Sprache! 


So hat auch der Schneider >> CPC 464 << einen sehr umfangreichen 
BASIC - Interpreter, der ihnen sofort nach dem Einschalten zur 
Verfügung steht. 


Zur Arbeitsweise des BASIC-Interpreters: 


Jedesmal, wenn in einem Programm eine BASIC-Anweisung durchlaufen 
wird, muß der Interpreter sie in die Maschinensprache übersetzen. 
Wird eine Anweisung 1000 mal durchlaufen, wird sie auch 1000 mal 
übersetzt, d.h. interpretiert. 


3. Grundsätzliches über BASIC 





Der BASIC-Compiler 
Anders geht ein BASIC-Compiler vor: 


Ein Compiler übersetzt das gesamte Programm in die Maschinenspra- 
che, bevor es ausgeführt wird. Auf diese Weise wird jede BASIC- 
Anweisung nur einmal übersetzt, und zwar ohne Rücksicht darauf, 
wie oft die Anweisung im Programm vorkommt. Es ist deshalb leicht 
einzusehen, daß ein compiliertes Programm schneller läuft als ein 
interpretiertes. 


Ein weiterer Vorteil des Compilers ist es, daß er beim Umwandeln 
das gesamte Programm auf die Einhaltung der sprachlichen Regeln 
überprüft und Syntax-Fehler, d.h. fehlende Kommandos, fehlerhaft 
geschriebene Befehlswörter meldet. Die erkannten Fehler werden 
ausgegeben, so daß der Programmierer sie in Ruhe beseitigen kann. 


Der Interpreter dagegen meldet nur dann einen Fehler, wenn er bei 
der Programmausführung einen Fehler in einer Programmzeile fin- 
det. Ein scheinbar fehlerfreies Programm kann einige Male ohne 
Fehlermeldung gelaufen sein, bis es dann plötzlich zu einer 
Fehlermeldung kommt, die von einer vorher nicht benutzten Pro- 
grammzeile ausgeht. Wird ein Fehler angetroffen, so wird das 
Programm vom Interpreter abgebrochen, d.h. es ist dann "abge- 
stürzt". 


Allerdings hat das Arbeiten mit dem Compiler auch seine Nach- 
teile: 


Zum einen benötigt der Compiler mehr Platz im Arbeitsspeicher des 
Computers, da im Speicher sowohl Platz für den Quellcode, das 
BASIC-Program, als auch für den Objekt-Code, das Maschinenpro- 
gramm, vorhanden sein muß. Zum anderen macht jede kleine und 
kleinste Programmänderung in einem compilierten Programm eine 
erneute und zeitaufwendige Compilierung erforderlich. Viel leich- 
ter und schneller lassen sich Änderungen durchführen, wenn man 
mit dem BASIC-Interpreter arbeitet. Hier schreibt man eine feh- 
lerhafte Anweisung neu und startet danach das Programm erneut. 
Bequemer geht es nicht! 


3. Grundsätzliches über BASIC 





Interpreter und Compiler im Wechsel 


Es gibt aber auch einen Weg, die Vorteile von Interpreter und 
Compiler gemeinsam zu nutzen: 


* Zuerst wird das Programm mit dem Interpreter erstellt 
und ausgetestet. 


* Anschließend wird es mit dem Compiler bearbeitet, d.h. 
es wird compiliert. 


* Programmänderungen werden mit dem Interpreter ausgeführt 
und wiederum ausgetestet. 


*% Danach wird das Programm wieder compiliert. 
Auf diese Weise kann man in der ersten Phase des Programmierens 
das Programm sehr schnell ändern, unter dem Interpreter testen 
und besitzt nach der Compilierung ein schneller laufendes Pro- 
gramm, als bei einer Interpreterversion. 
In welcher Sprache wird programmiert? 
Um Mißverständnisse zu vermeiden: 


Programmiert wird immer in BASIC. 


Lediglich die Ausführung des Programms im Computer unterscheidet 
sich in der Ausführungsart als 


* Interpreterfassung oder 
*% compilierte Fassung. 


Mit dem Compilieren von BASIC-Programmen sollten Sie sich erst 
beschäftigen, wenn Ihnen BASIC geläufig ist. 
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4. Grundsätzliches zur Bedienung des >> CPC 464 << 





Eine umfangreiche Tastatur und einen fest eingebauten Datacorder 
bietet der >> CPC 464 << in der Grundausstattung. Die vorhandenen 
Sondertasten und der Datacorder ermöglichen ein schnelles und 
bequemes Arbeiten mit dem Computer, wenn sie optimal genutzt 
werden. 

Die Funktion der Sondertasten und des Datacorders sollte Ihnen 
vertraut sein, bevor Sie Ihr erstes BASIC-Programm schreiben. 


Die folgenden knappen, grundsätzlichen Bedienungshinweise bieten 
Ihnen Hilfen für den Umgang mit dem Computer an. 


Die Tastatur des >> CPC 464 << 
Sie finden auf der Tastatur die Sondertasten: 


ENTER 

SHIFT 

CAPS LOCK 

CTRL 

ESC 

DEL 

CLR 
Cursorsteuertasten 
COPY 


RN HIHI 


Funktion der Sondertasten 


ENTER-Taste 


Die ENTER-Taste wird Eingabetaste genannt. Auf der Tastatur sind 
zwei vorhanden, die in ihrer Funktion gleich sind. Benutzt werden 
muß die ENTER-Taste immer dann, wenn Eingaben beendet werden 
sollen. 

Arbeiten Sie im Direktmodus, dann werden die Kommandos direkt 
nach Drücken der ENTER-Taste ausgeführt. Schreiben Sie Programme, 
so werden hiermit die Programmzeilen in den Arbeitsspeicher des 
>>CPC 464<< übernommen. 
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SHIFT-Taste 


Je eine SHIFT-Taste ist rechts und links auf der Tastatur ange- 
ordnet. Wird eine der SHIFT-Tasten in Kombination mit einer 
weiteren Taste gedrückt, so wird auf Großbuchstaben oder auf die 
zweite Tastenbelegung umgeschaltet. 


CAPS LOCK-Taste 


Die CAPS LOCK-Taste schaltet permanent auf Großbuchstaben-Modus 
um. Durch erneutes Drücken wird der Modus ausgeschaltet. 

Die zweite Tastenbelegung auf den Zifferntasten der Haupttastatur 
wird weiterhin nur über die SHIFT-Taste erreicht. 


CTRL-Taste 


Die CTRL-Taste ist nur in Kombination mit anderen Tasten wirksam 
und dient dem Aufruf von Sonderfunktionen. Wird die CTRL- und die 
CAPS-LOCK-Taste gedrückt, so wird der Modus SHIFT LOCK ein- bzw. 
wieder ausgeschaltet. Die Wirkung entspricht der Umschaltung bei 
einer Schreibmaschine, d.h. es wird die zweite Tastenbelegung 
ausgegeben. In Verbindung mit den Cursorsteuertasten wird in 
einer Eingabezeile ein Springen des Textcursors an das Ende bzw. 
an den Anfang der Zeile bewirkt. 


ESC-Taste 


Die ESC-Taste bewirkt einen Abbruch des laufenden Programms unter 
BASIC und es erscheint die Meldung "*Break*", 

In Kombination mit der SHIFT- und CTRL-Taste wird ein Reset des 
Systems ausgelöst, was einem Aus- und Einschalten des Geräts 
entspricht. 
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DEL-Taste 

Mit der Taste kann das links neben dem Cursor stehende Zeichen 
gelöscht werden. Findet sich hier kein Zeichen, so wird ein 
Signalton ausgegeben. 


CLR-Taste 


Mit der Taste wird das vom Cursor angezeigte Zeichen gelöscht. 


Cursorsteuertasten 


Im Kommandomodus kann damit der Textcursor gesteuert werden. Er 
kann innerhalb einer Eingabezeile frei bewegt werden. Ist kein 
Zeichen eingegeben worden, so bleibt er über das gesamte Textfen- 
ster frei bewegbar. 

Gedrückte SHIFT-Taste plus Cursorsteuertasten leiten die COPY- 
Funktion ein. Es erscheint der COPY-Cursor, der über das gesamte 
Bildschirmfenster frei bewegt werden kann. 


COPY-Taste 


Kopieren von Zeichen und Zeilen 


Mit der COPY-Taste werden Zeichen oder ganze Programmzeilen ko- 
piert. 


Vorgehensweise: 


l. Der normale Textcursor wird mit den Cursorsteuertasten 
auf die Einfügeposition gesetzt. 


2. SHIFT- plus Cursor-Steuertaste drücken und hiermit COPY- 


Cursor auf die Anfangsposition der zu kopierenden Zei- 
chenfolge setzen. 
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3. COPY-Taste drücken und so lange gedrückt halten, bis die 
gewünschte Zeichenfolge nach rechts gehend übernommen 
ist. 


4. Die mit dem COPY-Cursor übernommenen Zeichen werden an 
der Textcursorposition immer rechts angehängt und so 
dupliziert. 


5. Befindet sich der Textcursor innerhalb einer Eingabe- 
zeile, so wird die kopierte Zeichenfolge links vom Text- 
cursor eingefügt und die ab der Textcursorposition vor- 
handenen Zeichen nach rechts verschoben. 


6. Das Ende des Kopiervorganges wird mit Drücken der ENTER- 
Taste bestätigt. Sollen die schon kopierten Zeichen nicht 
übernommen werden, kann der Kopiervorgang durch Drücken 
der ESC-Taste aufgehoben werden. 


Bildschirmeditor mit der COPY-Taste 


Mit der COPY-Taste kann aber auch ein Bildschirmeditor realisiert 
werden: 


Beispiel: 


Soll eine Programmzeile auf dem Bildschirm editiert werden, so 
ist die Vorgehensweise wie folgt: 


l. 


Der gewünschte Programmabschnitt ist mit der LIST-Anweisung zu 
listen. 


Die zu ändernde Zeile ist mit dem Text-Cursor anzusteuern. 


Es darf außer den vier Cursor-Steuertasten keine weitere Taste 
betätigt werden. 


Mit der COPY-Taste muß die gesamte zu editierende Programm- 


zeile in sich selbst übernommen werden, d.h. die Zeile wird 
aus dem Bildschirmspeicher kopiert. 
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5. Die zu ändernde Zeile ist nun als Eingabezeile in den Zeilen- 
puffer übernommen, so daß Sie geändert werden kann. 


Die Vorgehensweise besitzt Vorteilel 
* Der Überblick über den Programmblock bleibt erhalten. 


* Beliebige Programmzeilen können auf dem Bildschirm zu neuen 
Programmzeilen zusammengefügt werden. 


* Es sind Änderungen durchführbar, die normalerweise nur mit 
Texteditoren möglich sind. 


Der Datacorder des >> CPC 464 << 
Das Magnetband als externer Datenträger 


Im Gegensatz zu anderen tragbaren, batteriegepufferten Computern 
ist Ihr >> CPC 464 << mit einem sogenannten "volatilen", flüchti- 
gen Speicher ausgestattet. Diese Art Speicher sichert nur bedingt 
die Daten und Programme. Wird die Stromzuführung unterbrochen, 
z.B. durch Betätigung des Netzschalters oder aber durch einen 
generellen Stromausfall, so sind die im Arbeitsspeicher befind- 
lichen Daten und Programme unwiderruflich verloren bzw. gelöscht. 
Erst eine vorherige Sicherung der Daten und der Programme auf 
einem externen Datenträger garantiert die Datensicherheit. Syno- 
nym hierzu wird auch häufig der Begriff "peripherer Speicher" 
benutzt. Das Thema wird in einem weiteren Buch zum >> CPC 464 << 
aufgearbeitet, in dem Sie die Diskette als peripheren Speicher 
kennenlernen. In diesem Band werden Sie ausführlich in die Ar- 
beitsweise der Magnetbandabspeicherung eingeführt. 


Die Magnetbandaufzeichnung 
Alle mit Magnetband arbeitenden Rekorder zeichnen die Daten se- 
riell auf. Die Daten werden bei dieser Art der Abspeicherung 


hintereinander abgespeichert. Einen direkten oder auch wahlfreien 
Zugriff, "random access" genannt, gibt es nicht. Der wahlfreie 
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Zugriff ist erst beim Einsatz einer Diskettenstation oder einer 
Festplatte möglich. Die Zugriffszeit auf bestimmte Datensätze ist 
somit bei dem Einsatz eines Magnetbandes länger. Andererseits ist 
es die wohl kostengünstigste Abspeicherungsart und zusätzlich für 
viele Datenarchivierungsfälle die bessere Form der Langzeit- 
Speicherung. 


Die Bedienung des Datacorders 


Der in Ihrem >> CPC 464 << eingebaute Datacorder ist abgestimt 
auf die speziellen Anforderungen, die bei dem Sichern und Abspei- 
chern von Computerdaten gestellt werden. 

Er zeigt auf den ersten Blick viel Ähnlichkeit mit einem handels- 
üblichen Rekorder. Dennoch sollten Sie das Kapitel nicht über- 
blättern, damit Sie den Datacorder optimal ausnutzen können. 


Die Funktionstasten des Datacorders 


Im unteren rechten Bereich des >> CPC 464 << liegen die beschrif- 
teten, für die Bedienung des Datacorders verfügbaren 6 Funktions- 
tasten. Sie werden nun in ihrer Funktion kurz beschrieben, um 
Ihnen eine problemlose Handhabung der Übungs- und Programm-Kas- 
setten zu ermöglichen. 


REC 


REC ist die Abkürzung für RECORD und bedeutet Aufnahme. Die Taste 
ist nur dann zu drücken, wenn Sie Daten oder Programme auf einer 
Compact-Kassette abspeichern wollen. Die REC - Taste ist ohne 
eingelegte Compact-Kassette und geschlossenem Datacorderschacht 
blockiert. 

Sollen aus dem Arbeitsspeicher des >> CPC 464 << Daten auf eine 
Compact-Kassette abgelegt werden, so drücken Sie bitte zunächst 
die REC - Taste, bis sie einrastet. Halten Sie die Taste ge- 
drückt, bis Sie zusätzlich die PLAY - Taste betätigt haben. Beide 
Tasten sind zum Abspeichern einzurasten, erst dann können Sie 
Ihre Daten abspeichern. 
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PLAY 


Die gedrückte PLAY - Taste aktiviert den Datacorder, ohne daß 
hierbei ein Bandlauf durchgeführt wird. Ist die Taste eingeras- 
tet, dann können vom Datacorder computer- bzw. programmgesteuert 
Daten oder Programme in den Arbeitsspeicher des >> CPC 464 << 
eingelesen werden. 

Erreicht Ihre Compact-Kassette das Bandende, so wird die PLAY - 
Taste durch einen mechanischen Auslöser in die Ruheposition zu- 
rückgesetzt. 


REW 


Die Taste ermöglicht Ihnen ein schnelles Zurückspulen des Kasset- 
tenbandes von der rechten auf die linke Spule. Beachten Sie 
hierbei aber, daß keine automatische Endabschaltung vorgenommen 
wird. Sie sollten daher diese Funktion nicht unbeaufsichtigt 
nutzen, um eine Motorüberlastung nach Erreichen des Bandendes zu 
vermeiden. 


F.F. 


Die Abkürzung F.F. steht für "fast forward", gleichbedeutend mit 
schnell vorwärts. Hiermit können Sie Ihr Kassettenband von rechts 
nach links spulen, d.h. vorwärts spulen. 

Die F.F. - Funktion entspricht sonst der REW - Funktion, so daß 
auch hier der Hinweis auf die automatische Endabschaltung gilt. 


STOP/EJECT 


Die Taste ist mit zwei Funktionen belegt. Drücken Sie die STOP - 
Taste, so werden alle Datacorder-Funktionen augenblicklich abge- 
brochen und die vorher gedrückte Taste springt in die Ausgangspo- 
sition. j 


Die zweite Tastenfunktion dient dem Einlegen einer neuen Compact- 


Kassette. Wird die STOP - Taste wiederholt gedrückt, so öffnet 
sich das Kassettenfach. 
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PAUSE 


Die PAUSE-Taste unterbricht die momentan eingestellte Funktion 
des .Datacorders. Die vorher eingestellte Funktion kann durch 
erneutes Drücken der PAUSE-Taste wieder eingeschaltet werden. Sie 
wirkt nur in Verbindung mit der REC- und der PLAY-Taste. Beachten 
Sie, daß sie während eines Speicher- oder Ladevorgangs nicht 
genutzt wird, da hierdurch Schreib- und Lesefehler entstehen! 
Verfügen Sie über die zum Buch gehörenden Compact-Kassetten, 
werden softwaremäßig alle Pausen automatisch gesteuert, so daß 
Sie die Funktionstaste nicht benutzen müssen. 


Die Auswahl der Compact-Kassette 


Direkten Einfluß auf die Leistung des >> CPC 464 << Datacorders 
hat die Qualität und der Zustand der benutzten Compact-Kassetten. 


* Verwenden Sie nur Qualitäts-Compact-Kassetten. 


* C90 (2 x 45 Minuten) und C120 (2 x 60 Minuten) Compact-Kasset- 
ten sind für den Computereinsatz nicht empfehlenswert. 


*cl0o (2 x 5 Min.) bis CI5 (2 x 7,5 Min.) Computer-Compact- 
Kassetten sind besonders geeignet für die Speicherung von Com- 
puterdaten. 


* Die Bandsorte sollte zum Computereinsatz geeignet sein. 


* Mit Musik bespielte Compact-Kassetten gehören in den HIFI- 
Kassettenrekorder. 


*% Neue, ausschließlich für den Computer bestimmte Compact-Kasset- 
ten sichern auf lange Zeit ihren Datenbestand. 
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Der Umgang mit der Compact-Kassette 


Handelsübliche Compact-Kassetten sind auf ihrer Rückseite mit 
Schutzlaschen versehen. Wollen Sie ein unbeabsichtigtes Löschen 
oder ein Überspielen von Aufzeichnungen verhindern, so können die 
Schutzlaschen mit einem geeigneten Werkzeug ausgebrochen werden. 
Sind beide Schutzlaschen an der Compact-Kassette entfernt, so 
sind beide Seiten geschützt. Wollen Sie nur die A-Seite der 
Compact-Kassette schützen, so muß bei Draufsicht, das Magnetband 
zeigt zu Ihnen, die linke Lasche entfernt werden. 

Wird eine so präparierte Compact-Cassette von Ihnen in den Data- 
corder eingelegt, so ist eine unbeabsichtigte Löschung nicht mehr 
möglich, da die Aufnahmetaste (REC) des Datacorders durch die 
fehlende Schutzlasche blockiert ist. 

Wollen Sie auf einer so gesicherten Compact-Kassette Daten oder 
Programme löschen oder überspielen, so muß die Compact-Kassette 
wieder aufnahmetüchtig gemacht werden. Die durch die ausgebroche- 
nen Schutzlaschen entstandenen Öffnungen sind dann mit einem 
Selbstklebeband abzudecken. 


Die Speicher- und Lesegeschwindigkeit 
Der >> CPC 464 << bietet zwei Abspeicherungsgeschwindigkeiten: 


- Supersafe 1000 Baud 
- Speedload 2000 Baud 


Die Einheit "Baud" ist hierbei die Geschwindigkeit der seriellen 
Datenübertragung. Sie wird in Bits pro Sekunde (bps) bzw. Baud 
angegeben. Die Speedload - Geschwindigkeit liest Daten oder Pro- 
gramme demnach zweimal so schnell. 


Der Vorteil der zwei verfügbaren Speicher- und Lesegeschwindig- 
keiten wird sofort deutlich, wenn Sie Ihre eigenen Programme mit 
Speedload abspeichern und wieder einlesen. Hier können Sie mit 
Speedload Zeit für das eigentliche Programmieren gewinnen, und 
Sie haben zugleich die Gewißheit, daß Ihre Programme und Daten 
sicher abgespeichert und geladen werden. 
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Auch die für den >> CPC 464 << angebotenen Basic Übungs- und 
Programm-Compact-Kassetten können Sie mit Speedload in den Ar- 
beitsspeicher einlesen. 


Die Supersafe - Geschwindigkeit wählen Sie immer dann, wenn Sie 
Ihr Programm nicht ausschließlich auf Ihrem >> CPC 464 << benut- 
zen wollen. Das kann z. B. der Fall sein, wenn Sie Ihre Programme 
mit anderen >> CPC 464 << Besitzern tauschen wollen. 


Geringere Geschwindigkeit bedeutet hier noch größere Einlese- und 
Abspeichersicherheit, trotz der vielleicht auftretenden Toleran- 
zen bei der automatischen Aussteuerung unterschiedlicher Compu- 
ter. 


Ihr >> CPC 464 << erkennt außerdem automatisch die Einlesege- 
schwindigkeit, so daß Sie zu Ihrem Buch erworbene Übungs- und 
Programm-Compact-Kassetten ohne weitere Befehle einlesen lassen 
können. 


Die BASIC - Datacorderbefehle 


Der BASIC-Interpreter des >> CPC 464 << ist auch in dem Bereich 
der Datacorderbefehle ausgereift und umfangreich. Er garantiert 
mit den vorhandenen BASIC-Anweisungen ein komfortables Arbeiten. 
Für Ihren ersten Überblick sind die nutzbaren Anweisungen alpha- 
betisch aufgelistet: 


CAT CHAIN CHAIN MERGE CLOSEIN 
CLOSOUT EOF INPUT #9 LINE INPUT #9 
LOAD MERGE OPENIN OPENOUT 
PRINT #9 RUN SAVE SPEED WRITE 
WRITE #9 


Fünf der Anweisungen sollten Sie vorab kennenlernen, da sie für 
Ihre Arbeit mit dem Buch und der Programmkassette unbedingt 
benötigt werden. 
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Das Inhaltsverzeichnis erstellen 
Die CAT-Anweisung 


Anwendung: Die CAT-Anweisung liest die Kassette und erstellt ein 
Inhaltsverzeichnis, d.h. es werden die Namen der abge- 
speicherten Programme, die Programmblöcke und das 
Aufzeichnungsformat der Programme und Dateien auf dem 
Monitor ausgegeben. 

Es werden mit der Anweisung keine Programme von Kas- 
sette eingelesen! 

Lesen Sie möglichst jedes abgespeicherte Programm vor 
einer NEW-Anweisung oder Abschalten des >> CPC 464 <<. 
Ist Ihr Programm in einer lesbaren Qualität abgespei- 
chert worden, so erhalten $Sie durch die CAT-Anweisung 
ein OK. 

Das im Arbeitsspeicher vorhandene Programm wird hier- 
bei nicht beeinflußt, so daß Sie, falls kein. @K er- 
scheint, das Programm wiederholt abspeichern können. 


Auf dem Monitor wird ausgegeben: 


Dateiname/Programmname Blocknummer Kennzeichen 


Das Kennzeichen beschreibt das Aufzeichnungsformat 
nach folgendem Schlüssel: 


BASIC-Programme 
geschütztes BASIC-Programm 
ASCII-Datei 

binärer Datenblock 


+ x no 
noa a 


Wurde mit SAVE "" ein Programm abgespeichert, so er- 
scheint der Hinweis: 


"Unnamed file block >X<" 


auf dem Monitor. 
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Das Laden von Programmen 

Die LOAD-Anweisung 

Format: LOAD "<Programmname>" 

Anwendung: Die Anweisung lädt Programme bzw. Dateien von Kassette 
in den Arbeitsspeicher ein. Der <Programmname> darf 
maximal 16 Buchstaben aufweisen. Sie dürfen hier Groß- 
und Kleinbuchstaben vermischt benutzen. 

Beispiel 1: LOAD "" 

lädt das nächstliegende Programm von Kassette in den 
Arbeitsspeicher ein. 

Beispiel 2: LOAD "FARBKREISE" 

Es wird das Programm "Farbkreise'" von der Kassette 
eingelesen. 

Beispiel 3: LOAD "IKartei" 

Es wird das Programm "Kartei" in den Arbeitsspeicher 
des >> CPC 464 << geladen, ohne die englischen Bedie- 
nungshinweise auf dem Monitor auszugeben. 

Beispiel 4: LOAD"<Programmname>",Anfangsadresse 

Zum Laden von Binärdateien kann zusätzlich eine An- 


fangsadresse im Speicher angegeben werden, ab der die 
Binärdatei abgelegt wird. 
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Das Laden und Starten von Programmen 
Die RUN-Anweisung 
Format: RUN "<Programmname>" 


Anwendung: Die Anweisung lädt ein Programm mit dem angegebenen 
<Programmnamen> von der Programmkassette in den Ar- 
beitsspeicher des >> CPC 464 << ein und startet danach 
unmittelbar das Programm ab der ersten Programmanwei- 
sung. 

Der <Programmname> darf maximal 16 Tastaturzeichen 
aufweisen. Wird hierbei als erstes Zeichen des Pro- 
grammnamens ein Ausrufezeichen " I " geschrieben, so 
werden die Anweisungen der Rekorderbedienung und der 
gefundenen Programmnamen auf dem Monitor nicht ausge- 
geben. 

Beachten Sie bei der Anwendung der Anweisung, daß ein 
im Speicher vorhandenes Programm und alle Variablen 
gelöscht werden! 


Beispiel 1: RUN "Adressenprogramm' 

Gibt Bedienungshinweise auf dem Monitor aus, lädt das 
Programm "Adressenprogramm" in den Arbeitsspeicher, 
löscht ein vorhandenes Programm im Speicher und star- 
tet das Programm unmittelbar. 

Beispiel 2: RUN "ITelefon" 

Gibt keine Hinweise auf dem Monitor aus und entspricht 
sonst dem Beispiel |. 

Beispiel 3: RUN "" 


Lädt das nächste auf der Kassette gefundene Programm 
in den Arbeitsspeicher und entspricht sonst Beisp. |. 
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Hinweis: 


Beispiel 4: RUN "1" 


Gibt keine Hinweise auf dem Monitor aus und entspricht 
sonst dem Beispiel 3. 


RUN "" entspricht auch der Tastenkombination CTRL plus 
kleine ENTER-Taste! 


Die Tastenkombination CTRL plus "kleine ENTER-Taste" 
wird verwendet, um das nächste Programm auf der einge- 
legten Programmkassette in den Arbeitsspeicher einzu- 
lesen und automatisch zu starten. 


Die Vorgehensweise ist: Die CTRL-Taste wird gedrückt 
und festgehalten und dann zusätzlich die kleine ENTER- 
Taste gedrückt. Es erscheint auf dem Bildschirm die 
Meldung: 


RUN" 
Press PLAY then any key: 


Drücken Sie nun die Taste PLAY auf Ihrem Datacorder 
und danach eine beliebige Taste außer CAPS LOCK, SHIFT 
und CTRL. 


Abgebrochen wird die Funktion mit der ESC-Taste. 


Das Speichern von Programmen 


Die SAVE-Anweisung 


Format: SAVE "KDateiname>"[,<Dateityp>][,<binäre Parameter> ] 


Anwendung: SAVE speichert ein Programm mit dem angegebenen Pro- 


grammnamen bzw. <Dateinamen> aus dem Arbeitsspeicher 
auf Kassette. Der <Dateiname> kann maximal 16 Tasta- 
turzeichen aufweisen. Die Angabe des <Dateinamens>, 
des Dateityps und der binären Parameter kann zur Pro- 
grammabspeicherung entfallen. 
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Der Dateityp wird bestimmt durch: 
A = ASCII - Abspeicherung des Programms 
P = geschütztes Programm "LIST - Schutz" 
B = Abspeicherung eines Speicherbereiches 


Beispiel 1: SAVE '"" 


BASIC speichert das Programm als unbenannte Datei ab 
und es erscheint der Hinweis 


"Saving Unnamed file block 1" 


auf dem Monitor. 


Beispiel 2: SAVE "ITextpro",P 
BASIC speichert hierbei das Programm '"Textpro" LIST- 
geschützt auf Kassette und unterdrückt Bedienungshin- 
weise auf dem Monitor. 
Vorsicht! 
Sie können Ihre eigenen Programme mit der vorange- 
gangenen Anweisung nicht mehr "listen". 

Das Einstellen der Abspeichergeschwindigkeit 

Die SPEED WRITE-Anweisung 

Anwendung: Die SPEED WRITE-Anweisung gestattet es, Daten und 
Programme in zwei unterschiedlichen Geschwindigkeiten 
auf Kassette abzulegen. 


SPEED WRITE | legt mit 2000 baud und 


SPEED WRITE O mit 1000 baud auf Kassette ab. 
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Werden abgespeicherte Programme oder Daten wieder von 
Kassette eingelesen, so erkennt der >> CPC 464 << 
automatisch die vorgegebene Lesegeschwindigkeit. Die 
nach dem Einschaltvorgang vorgegebene Geschwindigkeit 
ist SPEED WRITE 0, d.h. die Abspeichergeschwindigkeit 
beträgt hier 1000 Datenbits pro Sekunde. 

Sollte irrtümlich ein negativer oder ein Wert größer 
"j" eingegeben worden sein, so erscheint die Fehler- 
meldung: 

"Improper argument". 


Hinweis: 


Aufnahmen sollten prinzipiell nicht direkt am Bandanfang begin- 
nen. Der Vorspann am Bandanfang und -ende ist für eine Aufzeich- 
nung ungeeignet. Er dient dazu, Verschmutzungen an dem eigent- 
lichen Magnetband zu verhindern. Häufig sind aber trotz aller Um- 
sicht die ersten Bandabschnitte für eine Speicherung von Daten 
nicht geeignet. Es ist daher ratsam, Daten erst nach einem Vor- 
lauf von 5 Sekunden auf die Datenkassette abzuspeichern, um 
eventuellen Störungen, d.h. im schlimmsten Falle Datenverlusten, 
zu begegnen. 
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Begriffserläuterungen 


Bevor mit dem eigentlichen Programmieren begonnen wird, sollten 
Sie sich mit einigen Begriffen vertraut machen, die im weiteren 
Verlauf des Buches immer wieder benutzt werden. 


Dieses sind die Begriffe: 


Laden 

Kommando 

Anweisung und Anweisungsnummer 
Konstante 

Variable 
Alphanumerische Zeichen 
Numerische Zeichen 
Zeichenketten 
Zeichenkettenvariable 
Zeichenkettenliteral 
Arithmetische Anweisung 
Reservierte BASIC-Worte 


Laden 


Der BASIC-Interpreter befindet sich in nichtflüchtigen Speicher- 
bausteinen, ROM genannt. Sie unterscheiden sich zu den RAM Spei- 
cherbausteinen dadurch, daß ihr Inhalt auch nach dem Abschalten 
des Computers erhalten bleibt. 

Der Interpreter muß nicht mit einem besonderen Vorgang geladen 
werden, sondern steht Ihnen sofort nach dem Einschalten automa- 
tisch zur Verfügung. Sie erkennen es daran, daß sich der BASIC- 
Interpreter nach dem Einschalten mit einem "Ready" meldet. 


Wenn Sie sich später mit der Diskettenarbeit beschäftigen, werden 


Sie auch ein BASIC kennenlernen, das Sie von einer Diskette in 
den Speicher des >> CPC 464 << laden müssen. 
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Kommando 


Kommandos sind Systembefehle, die im Regelfall außerhalb des 
BASIC - Programms verwendet werden. 


Beispiel: 


Sie haben ein BASIC-Programm in den Mikrocomputer eingetippt und 
wollen es sich auf dem Bildschirm anschauen. Sie geben den Sy- 
stembefehl, das Kommando: 


LIST 


über die Tastatur ein und erhalten auf dem Bildschirm das einge- 
gebene Programm angezeigt. Ist Ihrer Meinung nach alles in Ord- 
nung, dann geben Sie den Systembefehl: 


RUN 


ein und starten die Programmausführung. 
Sind BASIC-Anweisungen in der Art anzuwenden, so wird in diesem 
Buch vom Kommando- bzw. Direktmodus gesprochen. 


Anweisung, Anweisungsnummer 


Eine Anweisung tritt im Regelfall innerhalb eines Programs auf. 
Der Anweisung geht eine Anweisungsnummer voraus, auch Zeilennum- 
mer genannt. 


Einige Beispiele: 
10 INFUT B,C 
ZOA=BEXxC 
B 


30 FRINT A,B,C 


Für das allgemeine Verständnis hier die deutsche Übersetzung: 
10 GIB EIN (die Werte für) B,C 


20 (Berechne) A (als Produkt von)B * C 
30 GIB AUS (auf dem Bildschirm die Werte von) A,B,C 
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Selbstverständlich dürfen Sie nur in der erstgenannten englischen 
Fassung programmieren. Die deutsche Fassung dient hier nur dem 
Verständnis. 


Konstante 


Eine Konstante ist ein Festwert, der während der Programmausfüh- 
rung nicht verändert werden kann. 


Ein Beispiel: 
106 = 9.806458 


Die Konstante ist hier die Zahl 9.80665. 


Variable 


Unter einer Variablen versteht man beim Programmieren einen sym- 
bolischen Namen, unter dem auf einem Speicherplatz ein Wert 
abgelegt wird. Der Wert kann eine Konstante sein, kann aber auch 
im Verlauf des Programms errechnet werden. 


Beispiel: 


OA 
AO B 


9.806685 
Ex A 


Eon 


In der Anweisung mit der Anweisungsnummer lO wird während der 
Programmausführung der Variablen A der Wert 9.80665 zugewiesen. 
In der Anweisung mit der Anweisungsnummer 20 wird während der 
Programmausführung der Variablen B der Wert aus dem Produkt C * A 
zugewiesen, wobei die Variable C vorher bereits einen Wert erhal- 
ten haben muß. Ist dies nicht geschehen, so hat sie den Wert 
"NULL". Bei der Programmausführung ergibt sich dann natürlich für 
die Variable B auch der Wert NULL, da bekanntlich jeder mit NULL 
multiplizierte Wert nur den Wert NULL ergeben kann. 
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Alphanumerische Zeichen 


Hierunter versteht man jedes druckbare Zeichen, das für den 
jeweiligen Computer in einem Zeichensatz (Tabelle aller verfüg- 
baren Zeichen) festgelegt ist. Zwar gibt es international aner- 
kannte, standardisierte Zeichensätze, dennoch gibt es in bestimm- 
ten Punkten wichtige Unterschiede, so etwa verschiedene Länder- 
varianten. Ihr Schneider >> CPC 464 << besitzt die amerikanische, 
die internationale Fassung. 


Ein Auszug aus dem Zeichenvorrat: 


In Yu’ () # ern ON 
456789: 3, => ?TRBABCDEFG 
HIJKLMNOFGORSTUVWXYZL 
3“ _ tt abcedefoghi; k1lnno 
pgarstuvwxyziı)% 


Der >> CPC 464 << besitzt zudem noch Sonderzeichen und einen 
Zeichensatz mit Graphik-Symbolen und die besondere Fähigkeit, 
sämtliche denkbaren Symbole oder Zeichen vom Benutzer selbst 
definieren zu lassen, also auch jeden denkbaren Länderzeichen- 
satz, wie z.B. den griechischen oder spanischen. 

Mit Ziffern, die als alphanumerische Zeichen, so etwa in Texten, 
verwendet werden, kann man keine Rechnungen ausführen! Dazu be- 
darf es der numerischen Zeichen. 


Numerische Zeichen 

Hierunter versteht man Zahlen der unterschiedlichsten Art. Auf 
wichtige Unterteilungen wird im weiteren Verlauf noch eingegan- 
gen; hier in "Kurzfassung" die grundsätzlichen Erläuterungen: 


* Ganze Zahlen (INTEGER-Zahlen), wie z.B. die Zahlen: 


I 2 36 -60 123456 und -2643 
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*% Gleitpunktzahlen, die der Einfachheit halber hier erst ein- 
mal durch Dezimalzahlen dargestellt werden. 


Beachten Sie bitte, daß in Amerika und England an die Stelle 
des Dezimalkommas der Dezimalpunkt tritt. Sie schreiben also 
in BASIC: 


9.80665 1.567 0.23 1234.56 usw. 


Zeichenketten 


Unter Zeichenketten versteht man alle in doppelten Anführungszei- 
chen eingeschlossenen, alphanumerischen Zeichen. 


Beispiel: 


"Dies ist eine Zeichenkette mit insgesamt 51 Zeichen" 


Zeichenkettenvariablen 


Zeichenkettenvariablen sind symbolische Namen für Speicherplätze 
bzw. Speicherbereiche, auf denen Zeichenketten untergebracht 
sind. Die Zuordnung geschieht durch entsprechende Anweisungen. 


Beispiele: 


10 K$ = "Krankenkassenbeitrag" 
20 66$ = "Grundlohn" 


Beachten Sie bitte, daß die Namen der Zeichenkettenvariablen am 
Ende stets durch ein Dollarzeichen ($) gekennzeichnet sein müssen 


(K$, 66$). 


Zeichenkettenliteral 
Steht eine in doppelte Anführungszeichen gesetzte Zeichenkette in 


einer Anweisung, ohne dabei einer Zeichenkettenvariablen zugeord- 
net zu sein, handelt es sich um ein Zeichenkettenliteral. 


41 


5. Begriffe aus der Datenverarbeitung 


Beispiel: 


10 FRINT"Menge Einheitspreis Gesamtpreis" 
20 FRINT"------------ 144 " 


Hier werden die Zeichenkettenliterale dazu benutzt, um Über- 
schriften auf dem Bildschirm darzustellen. 
Arithmetische Anweisung, arithmetischer Ausdruck 


Ein arithmetischer Ausdruck steht in einer arithmetischen Anwei- 
sung stets rechts vom "Gleichheitszeichen". 


Beispiel: 


In dieser arithmetischen Anweisung ist B * C der arithmetische 
Ausdruck. 

Gleichheitszeichen in arithmetischen Anweisungen 

Beispiel: 

IOA=EXC 

Bei dieser arithmetischen Anweisung handelt es sich nicht um eine 
Gleichung im herkömmlichen, mathematischen Sinn, sondern um eine 
Anweisung an den Computer, der Variablen A den Wert des Produktes 
B * C zuzuweisen. Die Anweisung mit der Anweisungsnummer 10 wird 


folgendermaßen gelesen: 


Multipliziere B mit C und schreibe das Ergebnis auf den 
Speicherplatz mit dem symbolischen Namen A. 


oder: 


Ersetze den Wert A durch den Wert des Produktes B*C. 
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Das Gleichheitszeichen hat also die Bedeutung: 


"Ersetze... durch..." 


Liste der Variablen 


In einer Eingabe- bzw. Ausgabeanweisung müssen die ein- oder 
ausgehenden Variablen aufgeführt sein. 


Beispiel: 
FRINT A,B,C,D,X 

Die Anweisung veranlaßt den Computer, die aktuellen Werte von A, 
B, C, D und X auf dem Bildschirm anzuzeigen. Die Liste der Varia- 
blen lautet hier "A, B, C, D, X". 
Reservierte BASIC-Worte 
Reservierte BASIC-Wörter wie etwa LIST, PRINT, RUN usw. dürfen 
nicht als Namen von Variablen benutzt werden. Sie dienen als 
Instruktionen (Befehle) für den Computer. Die vollständige Liste 
der reservierten BASIC-Worte finden Sie im Anhang. 
Allgemeiner Hinweis 
Auf die Angabe weiterer Begriffserläuterungen in diesem einfüh- 
renden Abschnitt wird verzichtet. Sie werden an geeigneter Stelle 
in den jeweiligen Kapiteln erfolgen. 

Beachten Sie bitte: Die vorstehenden Erläuterungen die- 


nen der ersten Information und sind in diesem Sinne kein 
auswendig zu lernender Lehrstoff. 


43 


6. Erste Anwendungsversuche in BASIC 


Einführung 


Die Einleitung zum Thema BASIC sollte dazu dienen, Sie in die 
problemorientierte Programmiersprache BASIC einzuführen. 
Grundsätzliches über BASIC wurde bereits angesprochen. Lassen Sie 
uns nun kurz einige Dinge wiederholen und andere neu hinzufügen. 


*% BASIC ist eine Mikrocomputer-Sprache 
*% Mikrocomputer wurden aus Amerika eingeführt 
*% Ihre Zahl wächst in Deutschland ständig 


* Moderne Technologie läßt die Mikrocomputer immer 
besser, handlicher und bedienerfreundlicher werden. 


* Der >> CPC 464 <<, mit dem Sie jetzt BASIC lernen, 
zählt zu diesen Mikrocomputern. 


Verständlicherweise wächst durch derartig handliche Computer die 
Zahl der Hobby- und Profi-Programmierer, die sich des neuen Me- 
diums aus den unterschiedlichsten Gründen bedienen. Versuche, 
BASIC auf Großrechenanlagen umfassend einzusetzen, hatten bei 
weitem nicht den durchschlagenden und erwarteten Erfolg. 


Die Situation ist bei den Mikrocomputern umgekehrt. In allen 
größeren Orten findet man inzwischen neben den Computern selbst 
ein sehr reichhaltiges Literaturangebot über BASIC und eine Fülle 
von BASIC-Programmen, wie die z.B. aus dem HEIM-Verlag. 


Aufgabenstellung: Die Addition von Zahlen 
Alle Welt lernt heute BASIC, versuchen Sie es auch. Begonnen wird 
jetzt mit einigen sehr einfachen Beispielen. Eine kleine Aufgabe 


soll gelöst werden, die ebensogut mit einem Taschenrechner gelöst 
werden könnte. 
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Es soll die Summe aus einer beliebigen Anzahl von Geldbeträgen 
gebildet werden: 


123.05 DM 
99.50 DM 

256.70 DM 
1.75 DM 


Führen Sie die Rechnung mit dem Taschenrechner aus, so erhalten 
Sie den Betrag von 481.00 DM. 


Diese Zahlen dienen nur als Beispiel, d. h. an ihre Stelle könn- 
ten ebenso andere Zahlen treten. 

Es handelt sich hierbei um eine Addition von Variablen, so daß 
sich der folgende Programmablaufplan ergibt. 


Programmablaufplan 










Anfang 


Eingabe 
DM 


Berechnen 
der Summe 







Drucken 





Eingabe 
beendet 
? 







Ergebnis 
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Zu dem Ablaufplan gehört das recht einfache BASIC-Programm: 


10 INFUT DM 
20 SUM = SUM + DM 

30 IF DM£>O THEN 10 

40 FRINT "-------- ü 
50 PRINT SUM 


Im vorigen Kapitel wurde schon ein Beispiel für Anweisungen und 
Anweisungsnummern vorgestellt. Betrachten Sie jetzt schrittweise 
diese Programmzeilen! 
Die Anweisung mit der Anweisungsnummer 10: 
10 INFUT DM 

Die INPUT-Anweisung 
Das Wort INPUT ist ein reserviertes BASIC-Wort, mit dem der 
Bediener aufgefordert wird, über die Tastatur des >> CPC 464 << 
eine Eingabe zu machen. Die Aufforderung zur Eingabe wird auf dem 
Bildschirm durch ein Fragezeichen wiedergegeben. Es handelt sich 
um ein Anforderungszeichen oder auch Aufforderungszeichen mit der 
Bedeutung: 

"Gib jetzt etwas ein!" 
Beachten Sie, daß die Aufforderung zur Eingabe durch das BASIC- 
Wort INPUT ausgelöst wird. Das Fragezeichen ist hierbei die 
bildhafte Darstellung der Aufforderung zur Eingabe. 
Fehleingaben und Fehlermeldung 
Was aber dürfen Sie eingeben? 
Im vorhergehenden Kapitel wurde von numerischen und alphanume- 
rischen Zeichen sowie Zeichenketten gesprochen. Nach dem Wort 
INPUT dürfen Sie in diesem Programmbeispiel nur Zahlen, den 


Dezimalpunkt und die Vorzeichen Plus (+) und Minus (-) eingeben. 


Geben Sie ein anderes Zeichen wie etwa einen Buchstaben oder ein 
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Sonderzeichen ein, wird das Anforderungszeichen (?) erneut auf 
dem Bildschirm ausgegeben. Dahinter erscheint als Fehlermeldung 
die Nachricht: 


?Redo from start 

Dieses kann frei übersetzt werden mit: 
"Geben Sie erneut, und zwar von Anfang an ein!" 

Der häufigste Eingabefehler ist hierbei, daß anstelle des Dezi- 
malpunktes ein Dezimalkomma eingegeben wird. Wird z.B. 123,05 und 
nicht 123.05 eingegeben , so erscheint wieder die Fehlermeldung: 

?Redo from start 
Die Einschränkung "in diesem Programm" bedeutet, daß das Wort 
INPUT nicht für sich allein gesehen werden darf. Betrachten Sie 
noch einmal die Anweisung 10: 

10 INFUT DM 

Hinter INPUT steht der Name einer Variablen, nämlich DM. Im 
Abschnitt "Begriffserläuterungen" wurde unter dem Stichwort "Va- 
riable" der Begriff erläutert und unter dem Stichwort "Zei- 
chenkettenvariable'" dieser Begriff dagegen abgegrenzt. Lesen Sie 
bitte dort noch einmal nach! 


Regeln zur INPUT-Anweisung: 


* Die INPUT-Anweisung erlaubt, Eingaben über die Ta- 
statur in ein Programm einzulesen. 


* Zeichenketten und Zahlenwerte können mit der INPUT- 
Anweisung eingelesen werden. 


* Die Kommastelle von Dezimalzahlen muß mit einem 
Punkt angegeben werden. 


%* Zeichenkettenvariablen müssen mit dem $ Zeichen 
gekennzeichnet werden. 
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* Numerische Variablen dürfen nicht mit dem $ Zeichen 
gekennzeichnet werden. 


* Eine fehlerhafte Eingabe führt zu der Fehlermeldung 
"?Redo from start" 


BASIC-Sprachregeln zur INPUT-Anweisung 


Die Variable DM enthält daher kein Dollarzeichen am Namensende. 
Es handelt sich hierbei um eine numerische Variable. 


Es bleibt zu fragen, wie vorgegangen werden muß, wenn nicht nur 
ein einfaches Fragezeichen auf dem Bildschirm als Aufforderung 
zur Eingabe erscheinen soll, sondern eine wörtliche Abfrage, wie 
etwa: "Betrag"? 


Dies kann an einem Beispiel verdeutlicht werden. Hierzu wird die 
Anweisung Nr. 10 wie folgt geändert: 


10 INFUT "Betrag: ":; DM 


Wie Sie erkennen können, wurde eine Zeichenkette hinter der 
INPUT-Anweisung eingefügt, nämlich das Wort "Betrag:" und an- 
schließend ein Semikolon (;) gesetzt. 

Das Semikolon ist durch die BASIC-Sprachregeln in einer Eingabe- 
anweisung (INPUT) dann vorgeschrieben, wenn eine Zeichenkette 
hinter INPUT folgt. 

Erst hinter dem Semikolon darf die Variable, in dem Beispiel DM, 
stehen. 


Das Fragezeichen wird nach dem Zeichenkettenliteral auf dem Bild- 
schirm angezeigt. Beachten Sie hierbei die BASIC-Sprachregeln und 
das Format der Anweisung. 


Es sind Fälle denkbar, bei denen nach einer Zeichenkette das 
Fragezeichen absolut überflüssig ist und nicht ausgegeben werden 
soll. 


Anstelle des Semikolons muß dann ein Komma gesetzt werden, das 
Fragezeichen erscheint dann nicht! 


48 


6. Erste Anwendungsversuche in BASIC 





Beispiel: 
10 INFUT "Betrag: ";DM 


Dieses Format der INPUT-Anweisung liefert auf dem Bildschirm die 
Abfrage: 


Betrag:” 
Beispiel: 
10 INFUT "Betrag: ",„DM 


Das Format der INPUT-Anweisung liefert auf dem Bildschirm die 
Abfrage: 


Betrag: 


Das Fragezeichen hinter "Betrag:" wurde hier nicht ausgegeben! 


Zusammenfassung: 


* Eine Zeichenkette hinter der INPUT-Anweisung ist mit 
einem Semikolon oder Komma von der (den) Variablen zu 
trennen. 


*% Wird das Semikolon gewählt, so wird ein Fragezeichen 
angezeigt. 


* Wird ein Komma nach der Abfrage gesetzt, so erscheint 


kein Fragezeichen. 


Einer .Zeichenkettenvariablen kann ein bestimmter Wert zugeordnet 
werden. Was geschieht aber, wenn im Zeichenkettenliteral auch ein 
Komma auftaucht? 
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Das folgende Beispiel macht die Lösung deutlich: 


100 A$ = "Abzuege, ohne Beitraege zu Ver 
baenden" 


Das Zeichenkettenliteral muß in Hochkommata eingeschlossen wer- 
den, erst dann darf innerhalb der Zeichenkette selbst auch ein 
Komma vorkommen. 


Ein ergänzender Hinweis zur INPUT-Anweisung: 


30 INFUT A.A$ 


In dieser Eingabe-Anweisung kommen zwei Variablen vor, eine nume- 
rische (A) und eine Zeichenkettenvariable (A$), die durch ein 
Komma voneinander getrennt sind. Dies hat zur Folge, daß Sie nach 
der Eingabe der Variablen A ein Komma eingeben müssen, das vom 
BASIC-Interpreter auch tatsächlich erwartet wird. Danach dürfen 
Sie dann die Zeichenkettenvariable eingeben. 

Hier gilt die Regel, daß die Zeichenkettenvariable ohne Hochkom- 
mata eingegeben werden kann, wenn sie selbst kein Komma enthält. 
Andernfalls muß sie in Hochkommata eingeschlossen werden. 


Es ist sicher ganz nützlich, wenn nun die verschiedenen Möglich- 
keiten zusammengestellt werden: 


10 INFUT A,A$ 
20 FRINT"------------- 


30 PRINT A,As 
Sie starten das vorstehende Programm mit RUN und geben ein: 
l. Beispiel: 
Auf dem Bildschirm erscheint: 
? 15, Stueck 


15 Stueck 
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2. Beispiel: 


Auf dem Bildschirm erscheint: 


> „Stueck 


[W) Stueck 


3. Beispiel: 


Auf dem Bildschirm erscheint: 


4. Beispiel: 
Auf dem Bildschirm erscheint: 


15, "DM, ohne Skonto" 


meet ums Maren mein Meets nes Mens Mae Anne Manns mad Mitt Mare Mid Menke mens Mans Meise Ieeee Mike Made Mäas Mid Mais Iieds MER Maden Mike MinHh Mast Mnahe Mike Map name Mana aan mann man 


15 DM, ohne Skonto 


Diese Beispiele werden Ihnen sicher die Möglicheiten 
Computer aufgezeigt haben. Kehren Sie nun wieder zu dem ursprüng- 
lichen Programmbeispiel zurück: 


10 INFUT DM 
20 SUM = SUM + DM 

=0 IF DM£>O THEN 10 

40 PRINT"-------------- f 
50 FRINT SUM 
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in BASIC 


direkt am 


Die Eingabe-Anweisung wurde schon ausführlich besprochen, so daß 
Sie zur Anweisung 20 bzw. zu der Zeile 20 Übergehen können! 


6. Erste Anwendungsversuche in BASIC 





Arithmetische Anweisungen in BASIC-Programmen 
20 SUM = SUM + DM 


Es handelt sich hier um eine arithmetische Anweisung, vgl. Sie 
bitte auch im vorhergehenden Kapitel unter Punkt "Arithmetische 
Anweisung". 

In dem Abschnitt "Gleichheitszeichen in arithmetischen Anwei- 
sungen" wird angegeben, daß es sich bei einer arithmetischen 
Anweisung nicht um eine Gleichung im herkömmlichen, mathema- 
tischen Sinn handelt. Hier steht rechts vom Gleichheitszeichen 
der arithmetische Ausdruck: 


SUM = SUM + DM 

Die Variable SUM steht aber bereits links vom Gleichheitszeichen. 
Da das Gleichheitszeichen auch als "Ersetze... durch ..." gelesen 
werden kann, darf man also wie folgt lesen: 

Ersetze den Inhalt von SUM durch den Inhalt von SUM + DM. 
Dieses ist so zu verstehen: 
Steht eine Variable links vom Gleichheitszeichen und ebenso 
rechts davon, so handelt es sich bei der Variablen gewissermaßen 
um ein Rechenfeld. Sie müssen eine derartige Anweisung dann 
so lesen: 

"Ersetze den bisherigen Inhalt der Variablen SUM 

durch den Wert, der sich aus der Addition des 

bisherigen Inhalts von SUM und dem Inhalt der Variablen 

DM ergibt!" 
oder kürzer: 

"Addiere den Inhalt von DM zum Inhalt von SUM hinzu." 

Dieser Vorgang läuft im >> CPC 464 << wie folgt ab: 


Im Mikrocomputer ist das Rechenwerk mit seiner arithmetischen 
Einheit für den Ablauf verantwortlich. 
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Dieser läßt sich ohne technische Einzelheiten so erläutern: 


l. Schritt: Bringe den Inhalt des Speicherplatzes 
SUM in den Akkumulator. 


2. Schritt: Addiere den Inhalt der Variablen DM zu 
dem Inhalt des Akkumulators hinzu. 


3. Schritt: Übertrage den Inhalt des Akkumulators 
auf den Speicherplatz der Variablen SUM 


und lösche bei der Übertragung den alten 
Inhalt von SUM durch Überschreiben. 


Die Bezeichnung "Rechenfeld" wird sowohl für die rechts als auch 
links von dem "Gleichheitszeichen" auftretende Variable angewen- 
det. Eine andere Bezeichnung, die sich für die Variable links vom 
Gleichheitszeichen eingebürgert hat, ist die Bezeichung: "Summen- 
feld". 
Die IF THEN-Anweisung 
Die nächste Anweisung in dem Programm lautet: 
0 IF DM{>O THEN 10 11 
Es handelt sich hierbei um eine 
WENN-DANN-Anweisung, 
umgangssprachlich formuliert: 
WENN DM UNGLEICH NULL, DANN (gehe nach Zeile) 10 
Die Worte "gehe nach Zeile" wurden in Klammern gesetzt, weil sie 
in der englischen Fassung bzw. in der BASIC-Anweisung nicht 


vorkommen. 


Diese Anweisung ermöglicht, das Ende der Eingabe abzufragen und 
bei Ende der Eingabe in die Schlußroutine zu springen. 
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Wenn also DM nicht gleich Null ist, wird vom Programm automatisch 
zur erneuten Eingabe nach Zeile 10 verzweigt. 


Die gleiche Anweisung könnte aber auch lauten: 
IF DMi:Ö0 THEN GOTO 10 


Hieraus werden die notwendigen Grundbestandteile der WENN-DANN - 
Anweisung in BASIC erkennbar: 


"IF Bedingung THEN Sprungziel" 


Nun zur nächsten Anweisung im Programmbeispiel! 


Die PRINT-Anweisung 
Sie lautet: 

40 FRINT"=---------- " 
Hier wird, wie bei den Begriffserläuterungen unter dem Stichwort 
"Zeichenkettenliteral" an einem Beispiel gezeigt, das Zeichenket- 
tenliteral 
auf dem Bildschirm ausgegeben. 
Entsprechend ist auch die letzte Anweisung 

50 FRINT SUM 

zu deuten. Sie gibt den Inhalt von SUM auf dem Bildschirm aus. 
Die Ausgabe-Anweisung PRINT wirkt hier auf den Bildschirm und 
stellt die in der Liste angegebenen Variablen und Literale dar. 


Allerdings wird mit PRINT ohne jeden Format-Zusatz ein Standard- 
format genutzt, das in den Sprachregeln enthalten ist. 
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Zusammenfassung: 


* Ein Zeichenkettenliteral muß in Hochkommata einge- 
schlossen sein, wenn innerhalb der Zeichenkette ein 
Komma vorkomnt. 


* Variable können auch als "Rechenfeld" bezeichnet wer- 
den, wenn rechts und links vom Gleichheitszeichen 
eine Variable steht. 


* Variable links vom Gleichheitszeichen werden auch 
"Summenfeld'"' genannt. 


* Mit der WENN-DANN-Anweisung werden Abfragen zur Pro- 
grammverzweigung programmiert. 


*% Die PRINT-Anweisung gibt Variable und Literale auf 
dem Monitor oder Drucker aus. 


* PRINT ohne Format-Zusatz nutzt ein Standardformat auf 
dem Bildschirm. 


Übungen 


Schreiben Sie eine Anweisung, die auf dem Bildschirm 
folgende Überschrift liefert: 


Auswertungsergebnisse des Versuchs 
Antwort: 


........ .... .e....—.—....... .— —.— 0, 0, 0011111111100 0. .o oo... 


Schreiben Sie eine Anweisung, in der der Seitenzähler 
"SEITE" um | hochgezählt wird. 


Antwort: 
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3 Schreiben Sie eine Anweisung, in der das Produkt aus 
Menge mal Einheitspreis unter der Variablen Betrag 
abgelegt wird. 

Antwort: 


..........—.r, ee ee er ee eeeeeereeee 0101011011 1 1101100 00 6° 


4 Definieren Sie die Begriffe "arithmetische Anweisung" 
und "arithmetischer Ausdruck" an dem folgenden Bei- 
spiel: 

10 GESAMTBETRAG=BETRAG+MEHRWERTSTEUER 
ANTWOLE Tee ee re ee ee leeres essen 


5 Wodurch wird eine Aufeinanderfolge von Zeichen zu einem 
Zeichenkettenliteral? 


Antwort ice re aare arsnererere te nero olareeneläretene ernteee 


Lösungen 
Zu |: 
FRINT "Auswertungsergebnisse des Versuchs" 
Zu 2: 
10 SEITE = SEITE + i 
Zu 3: 


BETRAG = MENGE % EINHEITSFREIS 
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Zu 4: 


Die arithmetische Anweisung besteht aus einer Variablen 
links vom Gleichheitszeichen und einem arithmetischen 
Ausdruck rechts vom Gleichheitszeichen. In unserer 
Übung ist die Variable links vom Gleichheitszeichen 
"GESAMT-BETRAG" und der arithmetische Ausdruck rechts 
vom Gleichheitszeichen "BETRAG+MEHRWERTSTEUER". 


Zu 5: 

Eine Aufeinanderfolge von Zeichen wird dadurch zu einem 
Zeichenkettenliteral, daß man am Anfang und am Ende der 
Zeichenfolge jeweils ein doppeltes Hochkomma setzt. 


Beispiel: 


Aufeinanderfolge von Zeichen: Dies ist der Beweis! 
Zeichenkettenliteral: "Dies ist der Beweis!" 
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Kurzvortrag zur REM-Anweisung 


In den Beispielprogrammen der nächsten Kapitel werden Sie Anwei- 
sungsnummern finden, hinter denen das Wort REM oder ein Apostroph 
und ein erläuternder Text zum Programm bzw. Programmablauf ange- 
fügt ist. 


Hier einige Beispiele: 
1lO REM Adressenprogramm 
120 REM Unterprogramm Skonto 
10 ” Programm berechnet die MwSt 
65 ° Programmschleife 
90 PRINT B$," ":REM Ausgabe plus Leerzeichen 


10 C=1 ’Setzt den Zaehler auf | 


Die REM-Anweisung und gleichwertig auch das Apostroph-Zeichen 
leiten Programm-Kommentare ein. Der Kommentar ist nur für den 
Programierer oder Anwender gedacht. Er soll einen Sachverhalt 
erläutern und das beim Programmieren Gedachte fixieren, um z.B. 
Programmerweiterungen ohne große Schwierigkeiten vornehmen zu 
können, oder um in einem umfangreichen Programm schnell einen 
bestimmten Programmteil ausfindig zu machen. 

Die Verwendung des Apostrophs ist nicht bei allen Interpretern 
zulässig. Das BASIC des >> CPC 464 << gestattet die Benutzung des 
Apostrophs als eine Abkürzung für die früher notwendige REM- 
Anweisung. 


REM steht für das englische Wort REMARK, übersetzt bedeutet dies 
"Bemerkung". 


Regeln zur REM-Anweisung: 


* Kommentarzeilen werden mit der REM-Anweisung einge- 
leitet. 
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* REM kann durch einen Apostroph als Kurzanweisung 
ersetzt werden. 


* REM-Zeilen beeinflußen den Programmablauf nicht. 


* REM-Zeilen dürfen an jeder Stelle des Programms 
eingefügt werden. 


* REM-Anweisungen sind auch am Ende einer Anweisungs- 
kette getrennt mit einem Doppelpunkt von der letzten 
Ausführungsanweisung erlaubt. 


* Wird die REM-Anweisung mit einem Apostroph gekenn- 
zeichnet, so darf der sonst geforderte Doppelpunkt 
in einer Anweisungskette fehlen. 


* Die REM-Anweisung und der nachfolgende Text benöti- 
gen Speicherplatz. 


* Kommentierung und Fixierung eines Programms bzw. 
einer Programmstruktur sind immer notwendig. 


Kommentare werden Ihnen in den Programmbeispielen und auch in den 
"Projektprogrammen" immer wieder begegnen. 


Dort heißt es dann z.B.: 
10’ Projekt: *%%*%% ZEICHEN DEFINIEREN *%% 
10’Projekt: *** KARTEI-PROGRAMM *%% 
100’ Zweite Schleife 


150’Ende der zweiten Schleife 


Diese Kommentare dienen der Erläuterung und sollen für Sie eine 
Hilfe bei der Programmbetrachtung darstellen. 
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Wiederholtes Abarbeiten von BASIC-Programmteilen 


Die besondere Stärke eines Computers ist es, eine Fülle von 
Operationen immer wieder auszuführen, ohne hierbei zu "ermüden". 
Die wiederholte Ausführung ("Iteration") von aufeinanderfolgenden 
Anweisungen ist für das Programmieren von so großer Bedeutung, 
daß man in BASIC besondere Sprachelemente geschaffen hat, um dem 
Programmierer die Arbeit zu erleichtern. 


Um die Zahl der Wiederholung von aufeinanderfolgenden Operationen 
kontrollieren zu können, müssen diese gezählt werden. 


Beispiel: 


10 C=1'Setzt den Zaehler auf i 

De 0 

TE] 0 ee 

AN aan 

50 C=C+1’Erhoeht den Zaehler um 1 

&0 IF Ci=N THEN 2Z0’Fruefung, ob Zaehlvor 
gang beendet 

II ne 


In diesem Beispiel werden die Operationen bereits kontrolliert. 


Erläuterung: 


* In Zeile 50 wird der Zähler C bei jedem Durchlauf der 
Anweisung um | hochgezählt. 


* In Zeile 60 wird in einer WENN-DANN-Anweisung abge- 
fragt, ob C kleiner oder gleich N ist. 


* Ist dies der Fall, wird nach der Anweisung 20 ver- 
zweigt, andernfalls wird mit der auf die Anweisung 60 
folgenden Anweisung 70 fortgefahren. 


Die Anzahl der Wiederholungen ist daher einfach zu bestimmen! 
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Programnschleifen 

Das wiederholte Durchlaufen von Anweisungen wird als "Programm- 
Schleife" bezeichnet. In diesem Sinne enthält auch das obige 
Beispiel bereits eine Programmschleife, die mit einer IF THEN- 
Anweisung programmiert wurde. 


Die FOR NEXT-Anweisung 


In BASIC verwirklicht man eine Programm-Schleife noch auf eine 
zweite Art: Mit der FOR NEXT-Anweisung! 


Beispiel für die Struktur der FOR NEXT - Schleife: 
10 FOR I=A TO N STEF i 
ZOO vun00 
SO sun0n 
40 vun. 
SO NEXT I 
Vergleichen Sie jetzt die beiden Arten von Schleifenbildungen! 
Die Anweisung 
FOR I=A TO N STEF i 
läßt sich in drei wesentliche Elemente aufgliedern: 
.Start: FOR I=A 
Ende: TO N 
Schrittweite: STEP | 


Die Variable I wird häufig als Schleifenzähler, die Variable A 
als Anfangswert und die Variable N als Endwert bezeichnet. 


Durch die Anweisung 


NEXT I 


61 


8. Die FOR NEXT-Schleife 


geht die Kontrolle zur Anweisung 
FOR I=A TO N STEF i 


zurück, ohne daß die Zeilennummer der FOR-Anweisung angeben wer- 
den muß. 

Diese Anweisung, die oft auch Laufanweisung genannt wird, fordert 
das Programm auf, alle Anweisungen, die zwischen der FOR-Anwei- 
sung und der NEXT-Anweisung stehen, solange erneut zu durchlau- 
fen, bis I den Wert N erreicht hat. 


Intern wird die FOR NEXT-Anweisung so abgearbeitet, daß immer 
zuerst geprüft wird, ob der Schleifenzähler den Endwert erreicht 
hat. 

Ist dies nicht der Fall, wird der Schleifenzähler um den Wert der 
Schrittweite, in dem Beispiel um I, erhöht und zu der auf die 
FOR-Anweisung nachfolgenden Anweisung verzweigt. 


Die FOR NEXT-Schleife ist somit nur eine versteckte WENN-DANN- 
Anweisung, die der zu Beginn des Kapitels gezeigten Lösung mit 
der IF THEN-Anweisung entspricht. 

Intern ist der Programmablauf gleich, für den Programmierer ist 
die FOR NEXT-Schleife aber bequemer. 

Die FOR NEXT-Schleife gehört zu den besonderen Stärken von BASIC. 


Diese Aussage werden wird im Zusammenhang mit der Tabellenarbeit 
näher erläutern! 


Zusammenfassung: 


* Die FOR NEXT-Anweisung dient der Schleifenprogram- 
mierung. 


* FOR kennzeichnet den Startpunkt der Schleife. 
* TO N bestimmt das Ende der Schleifendurchläufe. 


%* STEP | bestimmt die Schrittweite in der gezählt 
wird. 
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%* Die Anzahl der Schleifendurchläufe beträgt: 
Durchläufe=(Endwert+1-Anfangswert):Schrittweite 
* Eine FOR NEXT-Anweisung kann in eine IF THEN-Anwei- 
sung aufgelöst werden. 
Anwendungsbeispiele 
Beispiele für die Anwendung der FOR NEXT-Anweisung: 
Beispiel: 
10 FOR J=5 TO Z0 STEF 2 
20 FRINT J 


0 NEXT J 
40 END 


Ergebnis: 


2 


-SNGc 
I zZ 


Ps 


E 


17 
19 
Ready 


far 
Ü 


Die Laufanweisung in Zeile 10 besagt, daß alle folgenden Anwei- 
sungen bis zur NEXT-Anweisung so oft durchlaufen werden müssen, 
wie die Laufvariable J Werte annehmen kann. Diese Werte sind 
durch bestimmte Schranken festgelegt. 
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Für die Laufvariable J gilt somit: 


Anfangswert: 5 
Endwert: 20 
Schrittweite: 2 


Programmablauf: 


* Im ersten Durchlauf wird die Laufvariable J auf 5 
gesetzt. Beim nächsten Durchlauf wird sie von 5 um 2 
auf 7 erhöht, dann auf 9, 11, 13, 15, 17 und 19. 


* Den als Endwert angegebenen Wert 20 kann J nicht 
annehmen, da nach dem Erreichen von 19 eine Erhöhung 
um 2 bereits den Wert 21 ergibt, der außerhalb der 
Endwertschranke von 20 liegt. 


Grundsätzlich kann gesagt werden, daß "alle" Anweisungen, die 
zwischen der FOR-Anweisung und der NEXT-Anweisung liegen, wieder- 
holt durchlaufen werden. 

In diesem Beispiel liegt nur eine einzige Anweisung, nämlich eine 
PRINT-Anweisung dazwischen, mit der der jeweilige Wert von J auf 
dem Bildschirm ausgegeben wird. 


Hier nun das zweite Beispiel: 
10 FOR L=15 TO 2 STEF -3 


=0 FRINT L 
S0 NEXT L 


Programm-Ausführung: 


RUN 


12 


ir 
67 


Ready 
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Programmablauf: 


* Bei dieser Aufgabe wird die Laufvariable L herunter- 
gezählt, und zwar in Schritten von -3. 


* Den Endwert 2 kann die Laufvariable nicht annehmen, 
weil sie bei 3 - 3 den Wert O0 annehmen würde, der 
außerhalb der Endwertschranke liegt. 


Im übrigen ist der Ablauf der gleiche wie im vorigen Beispiel! 


Ein neues Beispiel mit einer veränderten Laufanweisung: 


10 FOR M=-10 TO 15 STEF 5 
=0 FRINT M 

50 NEXT M 

40 END 


Programm-Ausführung: 


RUN 
-10 
-5 

1#) 
10 
15 


Ready 
Programmablauf: 
* Der Anfangswert beginnt im negativen Bereich (-10) 
und wird bis zu einem positiven Endwert in Schritten 


um 5 hochgezählt. 


Sonst bleibt alles so wie Sie es bisher kennengerlernt haben. 
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Ein letztes Beispiel mit einer wiederum veränderten Laufanwei- 
sung: 

10 FOR I=14 TO -12 STEF -3 

20 FRINT I 


50 NEXT I 
40 END 


Programm-Ausführung: 


RUN 


1 

4 

-7 
-10 
Ready 


Hier sind in der Laufanweisung der Endwert und die Schrittweite 
negativ. Nachzutragen bleibt die Regel: 


* Ist die Schrittweite gleich I, so braucht sie nicht 
angegeben zu werden. 


Die Laufanweisung hat dann folgendes Aussehen: 
FOR I=A TO N 


Hier wird also bei jedem Schleifendurchlauf die Laufvariable, vom 
Anfangswert A ausgehend, bis zum Endwert N um jeweils | erhöht. 


Die Anweisung 
FOR I=A TON 


stellt eine allgemein gültige Form dar. 
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Der "allgemein gültigen Form" sollte nun noch die Angabe der 
Schrittweite hinzugefügt werden: 


FOR I=A TO N STEF J 
Erläuterung: 


* Die Laufvariable I wird bei jedem Durchlauf verän- 
dert. In welcher Form dies geschieht, wird durch die 
Schrittweite angegeben. 


* Die Anfangswert-Variable muß vor dem Erreichen der 
FOR-Anweisung mit einem entsprechenden Wert besetzt 
werden. Geschieht dies nicht, so hat sie den Wert 0. 


* Die Endwert-Variable muß ebenfalls vorher besetzt 
werden. Geschieht dies nicht, so hat sie den Wert 0. 


*% Haben sowohl die Anfangswert-Variable als auch die 
Endwert-Variable den Wert Null, so wird die FOR NEXT- 
Anweisung nur ein einziges Mal durchlaufen. 


Im übrigen müssen Sie immer darauf achten, daß die FOR-Anweisung 
in einer vernünftigen Form programmiert wird. Hat z.B. die Varia- 
ble A den Wert 2, die Variable N den Wert 10 und die Variable für 
die Schrittweite den Wert -3, hat die FOR-Anweisung also folgen- 
des Aussehen: 


FOR I=2 TOD 10 STEF -3 


so ergibt die Anweisung keinen Sinn, denn beim normalen Ablauf 
kann man nicht von 2 nach 10 in Schritten von -3 gelangen. 
Enthält ein Programm eine solche falsch programmierte Zeile und 
wird mit der RUN-Anweisung gestartet, so läuft das Programm nach 
dem Start auf einen Programmstop und wird sofort beendet. 


Auf dem Bildschirm ist folgendes zu sehen: 


RUN 
Ready 
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Ein weiteres Beispiel, das sowohl für die Ausgabe auf dem Bild- 
schirm, als auch für die Ausgabe auf einem Drucker von Bedeutung 
ist, wenn nach der PRINT-Anweisung das Nummernzeichen # und die 
Codezahl 8 angegeben wird. 
Wenn z.B. auf dem Bildschirm Leerzeilen erzeugt werden sollen, so 
können Sie programmieren: 


10 FOR I=1 TO 10 
20 FRINT 

30 NEXT I 

40 END 


Die "Liste" in der PRINT-Anweisung ist leer, es steht weder eine 
Variable noch ein Literal hinter PRINT. Das Programm gibt daher 
bei jedem Durchlauf auf dem Bildschirm eine Leerzeile aus. 


Es kann aber auch ein Literal, das in der "Liste" der PRINT- 
Anweisung steht, auf dem Bildschirm ausgegeben werden. Aus Grün- 
den der "Schönheit" soll eine Linie gezogen werden, die aus 
lauter Sternen besteht. 


Programmierversuch: 
10 FOR I=1 TOD 40 
20 FRINT "x" 


=0 NEXT I 
40 END 


Prüfen Sie dieses Programm zunächst daraufhin ab, ob es tatsäch- 
lich eine Sternenlinie in einer Linie ausgibt! 


Hilfen für Ihre Programmanalyse: 
Das Programm würde 40 Zeilen mit nur einem Stern (*) je Zeile 
ausgeben, aber nicht 40 Sterne nebeneinander! Um das Problem zu 
lösen, muß die PRINT-Anweisung folgendermaßen heißen: 

20 FRINT "X"; 


Das Semikolon (der Strichpunkt) am Schluß der PRINT-Anweisung 
unterdrückt den normalen Zeilenvorschub. 
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Im nächsten Durchlauf wird der Stern auf der nächstfolgenden 
Stelle in derselben Zeile abgedruckt. 


Das Ergebnis der FOR-NEXT-Schleife sieht dann auf dem Bildschirm 
so aus: 


RRRKOKKKOK KK KK ak KK AK ak ak ak ak ak ak KK a ak ak KK ak ak aK ak aK ak ak ok 


Auf diese Weise können bestimmte Bildschirmausgaben "eingerahmt" 
werden, was manchmal optisch vorteilhaft wirkt. 


Zusammenfassung: 


*% Anfangs- und Endwert der Laufanweisung kann negative 
Werte annehmen. 


* Die Schrittweite darf negative Schritte vorgeben. 


* Ist die Schrittweite gleich "1", so kann diese Angabe 
entfallen. 


* Die Angaben zu einer FOR NEXT-Schleife müssen mathe- 
matisch sinnvoll sein. 
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Ausgangspunkt der nächsten Aufgabenstellung ist das korrigierte, 


letzte 


Beispielprogramm, das geringfügig erweitert wird. 


10 N=N+1 

=0 FOR I=1 TON 

=0 FRINT "X"s3 

40 NEXT I 

50 FRINT 

&0 IF N{20 GOTO 10 
70 END 


Überprüfen Sie auch hier erst wieder anhand des Programmlistings 
den Programmablauf! 


Hilfen 


* 


Innere 


für Ihre Programmanalyse: 


Die Anweisungen Nr. 20, 30 und 40 bilden eine reine 
FOR NEXT-Schleife. 


Diese Schleife ist von einer "Hochzähl-Anweisung" 
(Nr. 10) und einer WENN DANN-Anweisung (Nr. 60) "ein- 
geschlossen". 


Die Anweisungen Nr. 10 und 60 stellen aber ihrerseits 
auch eine Programmschleife dar! 


und äußere FOR NEXT-Schleife 


Schreiben Sie nun anstelle der Anweisungen Nr. 10 und 60 eine FOR 
NEXT-Anweisung. 
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Programmbeispiel: 


10 FOR N=1 TO 20 
=0 FOR I=1 TON 


=0 FRINT 


40 NEXT I 


50 FRINT 


&0 NEXT N 


70 END 


Sie 
programmiert! 


Starten Sie das Programm mit RUN, 
auf dem Monitor: 


x 

xx 

KRX 

KRKK 

KRKKK 
KRKKKK 
RRRKKKK 
KRRKKOKKK 
RRRKKOKOKOK HK 
RRRKIOKKOKOK 


RRRIKOKOKOK KK 


haben nun eine innere und eine 


äußere FOR NEXT-Schleife 


so erhalten Sie folgendes Bild 


RRRRRKKOKOKKOK K 
RRRKKKOKOKOK KK %K 
RRRRRRKKOKKOKOKOK IK 
RRRRRRKIORKKKOKOKK 
RR OK IKK K KK 3 
RRKIKKKOKKOKOKOKOKOKOK KK 
RORRKSKOKOKOKOKOKOKOK IK OK 
RRRRRRKKOKKOKOKOKOK KK OK OK 
RRKIKKSKSKOKOKOK KK KK KK KK 


Aus 
FOR NEXT-Schleifen ableiten: 
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diesem Ergebnis können Sie eine Regel für die geschachtelten 


9. Die geschachtelte FOR NEXT-Schleife 


Regel: 


* Die äußere Schleife wird gestartet und danach die 
innere vollständig abgearbeitet. Erst dann geht die 
Kontrolle auf die äußere Schleife über. 


Programmbeispiele 


Überlegen Sie bitte einmal was geschieht, wenn Sie die Program- 
zeile 10, wie angegeben, ändern: 


FOR N = 20 TO I STEP -I 
und Sie den Rest des Programms unverändert lassen? 
Hilfen für Ihre Programmanalyse: 


*% Das obige Bild wird auf dem Kopf stehen, da die erste 
auszugebende Zeile N den Wert 20 besitzt, d.h. es 
stehen 20 Sterne (*) in der ersten Zeile. 


*% Der Schleifenzähler N wird in der äußeren Programn- 
schleife in Schritten um -] vermindert, also herun- 
tergezählt. 


* Dadurch verringert sich in der folgenden Zeile die 
Zahl der Sterne um |. 


Die von Ihnen abgeleitete, vorstehende Regel soll noch einmal 
anhand eines Beispiels näher erläutert werden. 


10 I=1 
20 FOR M=1 TO 5 
30 I=2%1 

40 FOR N=1 TO I 
50 PRINT "X"; 
60 NEXT N 

70 FRINT 

80 NEXT M 

90 END 
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Prüfen Sie die Anweisungen und beschreiben Sie zunächst die 
Ausgabe, die auf dem Monitor erscheinen könnte. 


Wenn Sie das Programm mit RUN gestartet haben, so erscheint bei 
der Ausführung des Programms Zeile für Zeile folgendes Bild auf 
dem Monitor: 


xx 

KRKK 

KRORKKKKK 

RRRRORKIKIOKKKOK IKK 

KK IKK KK OK KK OK OK OK KK KK KK DK OK OK KK OK KK KK KK 


Sie erkennen, daß die äußere Schleife 
20 FOR M=1 TO 5 


EO nun 


80 NEXT M 


genau fünfmal durchlaufen "FOR M=]1 TO 5" wird. Sie können dies 
auch an den genau fünf Stern-Zeilen, die beim Durchlaufen des 
Programms ausgegeben wurden, überprüfen. 


Zusammenfassung: 


* Die Anzahl der Zeilen wird von der äußeren FOR NEXT- 
Schleife bestimt. 


* Die Anzahl der Sterne in jeder einzelnen Zeile wird 
durch die innere FOR NEXT-Schleife bestimmt. 


* Die Laufvariable N nimmt dabei die Werte von | bis I 
an. 


* Die Variable I ihrerseits wird innerhalb der äußeren 
FOR NEXT-Schleife verändert. 


* Der jeweilige Wert von I wird durch den doppelten 
Wert von I ersetzt (I=2* I). 
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Zur Verdeutlichung des Sachverhalts folgende Skizze: 


%% 


M= ],I= 2: 

M=2,I= 4: X 

M= 3,1= 8: kkkkAkkk 

M=4,I= 16: KArkARRkacckRcKhR 

M= 5,I= 32: KAKkkKckrchcchccccc cc hc ch 


Starten Sie nun mit der RUN-Anweisung nachstehendes Programm, 
analysieren Sie den Programmablauf und auch das Ergebnis. 


10 FOR K=5 TO 8 

20 FOR I=1 TO 10 

50 M=IxK 

a0 FRINTI "X "EKEV="M 
SO NEXT I 

&0 NEXT E 

70 END 


Hilfen zur Programmanalyse: 


* Es ist wieder eine innere und eine äußere FOR NEXT- 
Schleife vorhanden. Zur Vereinfachung werden nur die 
beiden FOR NEXT-Anweisungen dargestellt: 


10 FOR E=5 TO 8 
=0 FOR I=1 TO 10 


SO NEXT I 
&0 NEXT E 


*% Die innere FOR NEXT-Schleife wird zehnmal, mit den 
Werten von |] bis 10, durchlaufen. Die äußere FOR 
NEXT-Schleife wird viermal, mit den Werten von 5 bis 
8, durchlaufen. Entscheidend sind die beiden Anwei- 
sungen Nr. 30 und 40: 


30 M=IXK 
40 FRINTI "X" K"="M 
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In der Anweisung kommen Hochkommata vor, die Zeichen- 
kettenliterale einschließen: 


FRINTI"X"K"t=0"M 


Fr 


1 2 


(1) Die beiden Hochkommata schließen ein Zeichenket- 
tenliteral ein, das aus einem Leerzeichen, einem 
Stern und einem weiteren Leerzeichen besteht. 


(2) Diese beiden Hochkommata schließen ein weiteres 
Zeichenkettenliteral ein, das aus einem Leerzeichen, 
einem Gleichheitszeichen und einem weiteren Leerzei- 
chen besteht. 


Die Buchstaben I, K und M bezeichnen Variable, die im 
Verlauf des Programms verwendet werden. 


I und K werden als Laufvariable benötigt. M dagegen 
ist eine Variable, in der das Produkt aus I mal K 
abgelegt wird. 
Beim ersten Programmdurchlauf hat K den Wert 5 und I 
den Wert I, so daß M nach Ausführung der Anweisung 
Nr. 
30 M=Ixk 

den WERT (1 *% 5 =)5 besitzt. 
Die Anweisung Nr.40O gibt auf dem Bildschirm aus: 

1» 24.8.5355 
Da die innere Schleife zuerst abgearbeitet wird, 
behält K seinen Wert | und I wird um I erhöht. Es 


ergibt sich folgender Rechengang: 


M=2%5,d.h.:M= 10 


75 


9. Die geschachtelte FOR NEXT-Schleife 





* Die Beschreibung der weiteren Schritte ergibt die 


Tabelle: 
1x 5 = 5 
2x 5 = 10 
a X 5 = 15 
4x 5 = 20 


Das Ergebnis des Programmablaufs: 

Das Programm liefert, wie Sie richtig analysiert haben, das 
Einmaleins mit 5, das Einmaleins mit 6 usw. und zuletzt das 
Einmaleins mit 8. 


Regeln zu den geschachtelten FOR NEXT-Schleifen: 


* Schleifen dürfen ineinandergeschachtelt sein, sie 
dürfen sich aber nicht kreuzen. 


* Von außen her darf in eine Schleife nicht hineinge- 
sprungen werden. 


* Im Zusammenhang mit einer IF-Anweisung kann aus einer 
Schleife herausgesprungen werden. 


*% Die Laufvariablen sollten eindeutig vergeben werden. 
* Die Anfangswerte, die Endwerte und die Schrittwei- 
tenwerte dürfen Zahlen, arithmetische Ausdrücke und 


Variablen sein. 


Vergleichen Sie hierzu die graphische Darstellung von erlaubten 
und verbotenen, geschachtelten Schleifen. 
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Graphik zu erlaubten und verbotenen FOR NEXT-Schleifen 


Erlaubt 
FOR 


FOR 2 


NEXT 2 


NEXT 1 


Verboten 
FOR ı 


FOR 2 


NEXT | 


NEXT 4 





Erlaubt 


Erlaubt 
FOR 2 
NEXT 2 
FOR 3 
NEXT 3 
NEXT 1 


Verboten 


FOR | 
FOR 2 
FOR 3 
en 
NEXT, 
NEXT | 


Geschachtelte Schleifen 


9. Die geschachtelte FOR NEXT-Schleife 


Die nachstehenden Programmbeispiele sollen Ihnen bei der prak- 
tischen Anwendung der FOR NEXT-Schleife helfen und Ihnen einen 
häufig vorkommenden Programmierfehler bei geschachtelten Schlei- 
fen aufzeigen. 


Ein häufiger Programmierfehler 
Beispiel mit Programmierfehler: 


10 ’Erste Schleife 

20 FOR I=1 TO 10 

50 IF I=5 THEN 70 

40 FRINT I 

50 NEXT I 

&0 "Ende der ersten Schleife 

70 FRINT'"Es geht!" 

80 N=25 

90 IF N=25 THEN FRINT"N = "N:G60T0 120 
100 "Zweite Schleife 

110 FOR K=1 TO 20 

120 FRINT"Dies ist ein Einsprung" 

130 FRINT"Wir sind in der zweiten Schleife" 


140 NEXT 
150 "Ende der zweiten Schleife 
1680 END 


Lesen Sie bitte das Programmlisting zuerst gründlich durch und 
versuchen Sie, sich Klarheit über den Programmablauf zu verschaf- 
fen. 

Beachten Sie hierzu auch die genannten Regeln! 


Die folgenden Zeilen bringen Ihnen die Darstellung so, wie sie 
auf dem Bildschirm ausgegeben wird. 
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RUN 

1 

4 
Es geht! 
N= 25 


Dies ist ein Einsprung 

Wir sind in der zweiten Schleife 
Unexpected NEXT in 140 

Ready 


Sie haben bemerkt, daß die Fehlermeldung "Unexpected NEXT in 140" 
erscheint. 


Die TRON- und TROFF-Anweisung 


Es gibt aber eine Möglichkeit, den Ablauf des Programs mit einer 
Hilfsroutine zu protokollieren. Sie wird vom BASIC-Interpreter 
zur Verfügung gestellt, um so die Fehlerquelle zu bestimmen. 
Geben Sie dazu unmittelbar über die Tastatur des Schneider 
>> CPC 464 << das Kommando TRON ein. TR steht für das englische 
Wort TRACING und bedeutet soviel wie "Verfolgung ", hier die 
Verfolgung des Programmablaufs. Das englische ON steht für "ein" 
und bedeutet hier "einschalten". Starten Sie nun erneut mit RUN! 


Ergebnis: TRON 
Ready 
RUN 
LIOILZOILZOILAOI 1 
ESOILFOILA4OI 2 
LSOILZFOILTAOI 3 
ESOIEZOIL40I 4 
ESOILFOIL7OIES geht! 
EBOIL9OIN = 35 
L1i20]Dies ist ein Einsprung 
Li30]wir sind in der zweiten Schleife 
L. 140] 
Unexpected NEXT in 140 
Ready 


4 
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Die in eckige Klammern gesetzten Zahlen sind die Nummern der 
jeweils durchlaufenen Anweisungen, die Zeilennummern. Sie können 
damit den Programmablauf genau verfolgen. 


Nach dem Starten des Programms mit RUN werden zwar in der ersten 
Zeile des Protokolls die Anweisungen 10, 20, 30 und 40 als Durch- 
laufen gekennzeichnet, aber von der zweiten Zeile an heißt es 
dann nur noch 50, 30 und 40; eigentlich müßte es doch wohl 50, 
20, 30 und 40 heißen? 


Sie müssen bei Ihrer Programmanalyse davon ausgehen, daß der 
Interpreter die durchlaufenen Anweisungen stets neu in eine ma- 
schinennahe Sprache übersetzt (interpretiert). Dabei werden die 
FOR NEXT-Anweisungen in einzelne Programmschritte aufgelöst. Das 
TRACING-Programm gibt in diesem Zusammenhang stets die Nummer der 
NEXT-Anweisung und die Nummer der auf die FOR-Anweisung folgenden 
Zeilennummer aus. Hinter den in Klammern gesetzten Zahlen steht 
je Zeile das Ergebnis der Programmausführung. 


Danach durchläuft das Programm die Schleife nicht zehnmal, wie in 
der FOR-Anweisung gefordert, sondern auf Grund der WENN DANN- 
Bedingung in der Anweisung Nr. 30 nur viermal. Erreicht der 
Schleifenzähler I den Wert 5, so verzweigt das Programm aus der 
Schleife hinaus zur Anweisung mit der Nr. 70. 


Es sollte mit diesem Programm zunächst gezeigt werden, daß mit 
einer IF-Anweisung aus einer Schleife hinausgesprungen werden 
kann. Im zweiten Teil der Programmanalyse wird nun die Fehlermel- 
dung betrachtet. 


Die Variable N wird in Zeile 80 auf 25 gesetzt. In der Anweisung 
90 ist die WENN DANN-Bedingung somit erfüllt. Auf dem Bildschirm 
wird 

N = 25 


ausgegeben. Das Programm verzweigt in die zweite Schleife hinein, 
und zwar zu der Anweisung mit der Nr. 120. 
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Auf dem Bildschirm werden zwei Zeilen ausgegeben: 


Dies ist ein Einsprung 
Wir sind in der zweiten Schleife 


und es wird die Anweisung 140 protokolliert. 
Anschließend erscheint als Fehlermeldung: 
Unexpected NEXT in 140 
auf dem Bildschirm, weil der Einsprung in eine Schleife nicht 
gestattet ist. Die Bedeutung der Fehlermeldung ist: NEXT wurde 
ohne dazugehöriges FOR gefunden. Vergleichen Sie hierzu das Kapi- 
tel "Fehlermeldungen und Fehlercodes". 
Hieran erkennen Sie eindeutig, daß ein Hineinspringen in eine 
Schleife vom Computer mit einer Fehlermeldung beantwortet und das 
Programm abgebrochen wird. Das Abbrechen des Programms wird auf 
dem Bildschirm durch "Ready" angezeigt. 
Dieses "Ready" heißt hier aber lediglich: 
Der Interpreter ist in den Kommandozustand bzw. in den 
Direktmodus zurückgekehrt, von dem aus er wieder ange- 
sprochen werden kann. Das Programm ist - wie erwähnt - 
"ausgestiegen". 
Zusammenfassung zum TRACE-Modus: 
* Der TRACE-Modus dokumentiert den Programmablauf. 
* TRON schaltet den TRACE-Modus ein. 
*% Im TRACE-Modus werden die durchlaufenen Anweisungs- 
nummern in eckigen Klammern ausgegeben und das Ergeb- 
nis nachgestellt. 


* TROFF schaltet den TRACE-Modus wieder aus. 


%*% Auch eine NEW-Anweisung schaltet den TRACE-Modus aus. 


81 


9. Die geschachtelte FOR NEXT-Schleife 





Übungen zu der FOR NEXT-Anweisung 


Aufgabe |: 


Welche Zahlen werden durch folgende Programmschleifen auf dem 
Bildschirm ausgegeben? 


l.l 10 "Aufgabe 1.1 
20 FOR I = 1 TO 9 STEF 2 
=0 FRINT I 
40 NEXT I 
50 END 


1.2 10 "Aufgabe 1.2 
20 FOR G = -35 TO -19 STEF 
=0 FRINT G 
40 NEXT 6 
50 END 


1.3 10 ’Aufgabe 1.3 
20 FOR J = -13 TO -21 STEF -3 
0 FRINT J 
40 NEXT J 
50 END 


Aufgabe 2: 


Schreiben Sie ein Programm, das Ihnen das Einmaleins der 7, 8 und 
9 auflistet! 
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Aufgabe 3: 


Welche Variablennamen sind gültige Namen für eine Zeichenketten- 
variable? 


a) AA2 b) ASA c) H7$ d) 8P0Q$ e) 3$ £f) B$ 


Aufgabe 4: 


Welche der folgenden Anweisungen sind gültige BASIC-Anweisungen? 


a) A= 87 ce) M$ = "BASIC" 
b) B$ = 9854 d) LI7 = 23 
Lösungen 


Um Ihnen die Arbeit zu erleichtern, sind die Programme noch 
einmal abgedruckt: 


Zur Aufgabe 1.1: 10 "Aufgabe 1.1 
20 FOR I = 1 TO 9 STEF 2 
=0 FRINT I 
40 NEXT I 
50 END 


SNGGU=C 


Ready 
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9. Die geschachtelte FOR NEXT-Schleife 


Zur Aufgabe 1.2: 


Zur Aufgabe 1.3: 


Zur Aufgabe 2: 


10 
20 
16) 
40 
50 


"Aufgabe 1.2 

FOR G = -35 TO -19 STEF 3 
FRINT G 

NEXT G 

END 


RUN 
-35 
-32 
-29 
-26 
-23 
-20 
Ready 


10 
20 
30 
40 


50 


"Aufgabe 1.3 
FOR J = -13 TO 
FRINT J 

NEXT J 

END 


-21 STEF -3 


RUN 


—-15 


a 


-1& 
-19 
Ready 


10 
20 
oO 
40 
S0 
&0 
70 
80 
90 


"Aufgabe 2 

FOR I = 7 TO 9 
FOR J = 1 TO 10 
M=JxI1 
FRINT Js" x 
NEXT J 
FRINT 

NEXT I 

END 


a m 


"aM 
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9. Die geschachtelte FOR NEXT-Schleife 


p4 
I 
ir 


70 


OU 
com 


T GO OM 
Neo Its 


N .0 
u 

1 use | Bu | Bu | Bu Bu u | Bus Eu 
N 
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”* 
% = # # # # % %# 


oO 
UNS SNDOD 


KERBHBOREN 
je} 

DOO DD m m m 
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“= # # # # # # # % 


oO 
=UNSDSONDO 


ognönstmCUn 
er UMTS DoNnNDo 


KH NN 
ecrococccrtrtorm 
.-=—. nn: u...” % 


=QOUNMSTSDONDO 


70 


[120 


10 


Ready 
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9. Die geschachtelte FOR NEXT-Schleife 


Zur Aufgabe 3: 
Gültig sind: c) H7$ und f£) B$ 


Der Name der Zeichenkettenvariablen muß mit einem 
Buchstaben beginnen und mit einem Dollarzeichen ($) 
enden! 


Zur Aufgabe 4: 
Gültige BASIC-Anweisungen sind: a), c) und d)! 


Die Anweisung b) ist deshalb ungültig, weil links 
von dem Gleichheitszeichen eine Zeichenkettenva- 
riable, rechts vom Gleichheitszeichen aber eine 
ganzzahlige Konstante steht. Der Computer kann 
solch eine Operation nicht ausführen. Er meldet 
einen Fehler "Type mismatch", in freier üÜber- 
setzung etwa: "Nicht zueinander passende Vari- 
ablenarten". 
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10. Einführung in die Datenverarbeitung 





Daten als Konstanten und als Variablen 


Die Kapitel, die Sie bisher bearbeitet haben, zeigten die ei- 
gentliche Stärke des Computers auf. Daten wurden hier immer in 
unterschiedlicher Form be- bzw. verarbeitet. 

Es wird daher verständlich, daß auch sonst in Verbindung mit dem 
Computer meist gleichzeitig von Datenverarbeitung gesprochen 
wird. 


Die Verarbeitung von Daten wird dabei immer in mindestens drei 
Stufen verwirklicht: 


l. Einlesen von Daten 


Daten werden vom Benutzer eingegeben --> variable Daten 
Daten werden vom Programmierer vorgegeben --> konstante Daten 


2. Verarbeitung von Daten 


Vergleichen und Berechnen 
Vermischen und Tauschen 
Selektieren und Sortieren 


3. Ausgeben und/oder Speichern von Daten 


Alle drei Stufen der Datenverarbeitung sind Ihnen mittlerweile 
schon vertraut. In diesem Kapitel werden Sie mit der zweiten Art, 
dem Programm Daten zu übergeben, bekannt gemacht. 

Benutzt haben Sie bislang die INPUT-Anweisung, um Größen unter- 
schiedlichster Art und Typs einzulesen, die zudem noch von Fall 
zu Fall verschieden waren. 


Die READ- und DATA-Anweisung 


Sind aber Konstanten, dieses sind Werte von gleichbleibender 
Größe und Typ, in einem BASIC-Programm für den Ablauf notwendig, 
so ist es sehr unbequem, diese Daten immer wieder aufs Neue 
während des Programmablaufs eingeben zu müssen. 

Hierzu wird die Kombination: READ- mit DATA-Anweisung benötigt. 
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10. Einführung in die Datenverarbeitung 


Mit . dieser Kombination können konstante Werte, die bei jedem 
Programmablauf stets in gleicher Weise benötigt werden, an Varia- 
blen übergeben werden. Die Daten können dann bereits im Programm 
in sogenannte DATA-Zeilen in genau der Reihenfolge abgelegt wer- 
den, in der sie während des Programmablaufs abgerufen werden. 


Beispiel: 10 DATA 5,7,9, 11 
20 DATA 13 
=0 READ Pi1,F2,P3 
40 READ F4,FP5 
50 PRINT FisP24P34F4;F5 


RUN 
3.79 ı11 13 
Ready 


Hilfen für Ihre Programmanalyse: 


* In Zeile IO und 20 befindet sich je eine DATA-Anwei- 
sung, in denen numerische Konstanten, in einer Konstan- 
tenliste durch Kommata getrennt, bereitgehalten werden. 


* Die erste READ-Anweisung finden Sie in Zeile 30. Hier 
werden zunächst drei Elemente aus der ersten DATA- 
Anweisung eingelesen. 

Eingelesen wird durch die erste READ-Anweisung: 


Pl=5; P2=7 und P3=39 


* In Zeile 40 finden Sie die zweite READ-Anweisung, die 
wiederum zuerst auf die DATA-Anweisung in Zeile I0 
zugreift und das letzte Element einliest, dann aber 
auch auf das in der DATA-Zeile 20 stehende Element 
zugreift. 

An die Variablen wird hierbei der entsprechende Wert 
übergeben: 


P4 = ]1I und P5 = 13 
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10. Einführung in die Datenverarbeitung 





In DATA-Anweisungen können aber nicht nur numerische, sondern 
auch nichtnumerische Konstanten, also auch Zeichenketten, im 
Programm fest vorgegeben werden. 

Diese können mit der READ-Anweisung gelesen und an Variable 
während des Programmablaufs übergeben werden. DATA-Anweisungen 
werden ohne zugehörige READ-Anweisung vom laufenden Programm 
übergangen, da sie selbst keine Funktion besitzen. Die im Pro- 
gramm vorhandenen DATA-Zeilen dürfen an jeder für die Programm- 
übersicht sinnvollen Stelle eingefügt werden, d. h. die Program- 
ausführung wird hierdurch nicht beeinträchtigt. 

In einer DATA-Zeile können Konstanten nacheinander angegeben 
werden, indem sie durch Kommata getrennt werden. Sollen Zeichen- 
ketten auch Kommata oder Doppelpunkte enthalten oder aber Leer- 
zeichen zu Beginn bzw. am Ende aufweisen, so müssen die angegebe- 
nen Zeichenketten als Zeichkettenliterale geschrieben werden. 


In DATA-Zeilen dürfen dagegen keine numerischen Ausdrücke stehen, 
da hier keine Berechnungen durchgeführt werden können. 
Beispiel: 

10 DATA >> CFC,464,<% 

20 READ A$,Z,B$ 

30 FRINT A$ıZ,B$ 

RUN 

=> CFC 464 «& 

Ready 
Übung zur READ- und DATA-Anweisung 
Übung: 
Prüfen Sie den Programmverlauf, wenn Sie die Zeile 


40 GOTO 20 


in das letzte Programmbeispiel 40 einfügen! 
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10. Einführung in die Datenverarbeitung 





Hilfen für Ihre Programmanalyse: 


* In Zeile 10 sind numerische und nichtnumerische Kon- 
stanten vorgegeben in einer DATA-Anweisung. 


* Die READ-Anweisung liest zunächst die Zeichenkette 
">> CPC" in die Variable A$, dann den numerischen Wert 
"464" in Z und als letzte Konstante wieder eine Zei- 
chenkette in B$ ein. 


* Die PRINT-Anweisung gibt dann die Inhalte der Variablen 
auf dem Bildschirm aus. 


Die Fehlermeldung, die nach dem Einfügen der Zeile 40 ausgegeben 
wurde, haben Sie richtig interpretiert: 


* Konstanten können nicht ohne besondere Anweisung zwei- 
mal gelesen werden. 

Die RESTORE-Anweisung 
Die zugehörige READ-Anweisung liest diese numerischen Werte, 
Zeichenketten oder Zeichenkettenliterale linear. Dies bedeutet, 
daß sie nacheinander eingelesen werden und sich innerhalb des 
Programms "verbrauchen", wenn nicht eine zusätzliche RESTORE- 
Anweisung dieses unterbindet, so daß mehrmals in einem Program- 
ablauf auf dieselben DATA-Anweisungen zugegriffen werden kann. 
Übung: 
Fügen Sie eine Zeile 35 ein, sie lautet: 


35 RESTORE 


und belassen Sie das übrige Programm. Prüfen Sie, ob nun wieder 
die gleiche Fehlermeldung erscheint. 
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10. Einführung in die Datenverarbeitung 


Hinweis: 


Es kommt während der Testphase von Programmen immer 
wieder zu den unterschiedlichsten Fehlermeldungen. Sie 
sollten in einem solchen Fall das Kapitel "Fehlermeldun- 
gen und Fehlercodes" zu Rate ziehen! 


Zu beachten ist, daß die READ-Anweisung ohne eine RESTORE-Anwei- 
sung immer zuerst auf die niedrigste Zeilennummer und dann auf 
die nächst höhere Zeilennummer mit einer DATA-Anweisung zugreift, 
wenn die vorgegebenen Konstanten in der ersten DATA-Zeile schon 
durch eine READ-Anweisung vollständig gelesen wurden. 


Im nächsten Programmbeispiel sind die häufigsten Anwendungsfälle 
von READ-,DATA- und RESTORE zusammengefaßt. Schauen Sie sich 
bitte erst das Programmlisting an und prüfen Sie dann den Pro- 
grammverlauf! 


Programmbeispiel 


10 MODE 1 
20 DATA Januar,Februar,Maerz,April,Mai,Juni,Juli 
30 DATA August , September ‚Oktober ‚November ‚Dezember 


40 CLS 
50 PRINT"Bitte Zahlen eingeben fuer: " 
60 INPUT "Tag : ",T 


70 INFUT "Monat: ",M 

80 IF T=24 AND M=12 THEN RESTORE 180:60T0 190 
90 IF Mi OR M>12 THEN 40 

100 FOR I=1 TO M 

110 READ MONAT$ 

120 NEXT I 

130 PRINT 

140 PRINT T"."M". = "T". "MONAT$ 
150 RESTORE 

160 FOR I=1 TO 2000: NEXT 

170 GOTO 40 

180 DATA " frohe Weihnachten ! u 
190 READ TEXT$:PRINT:FRINT TEXT$ 
200 GOTO 150 
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Einführung in die Datenverarbeitung 





Anhand des Programms lassen sich leicht allgemeingültige Regeln 
für die hier besprochenen Anweisungen ableiten. 


Regeln zur READ-,DATA und RESTORE-Anweisung 


x 


READ liest genausoviele konstante Werte aus DATA-Anweisungen, 
wie Variablen in der Liste aufgeführt sind und ordnet die 
Werte, entsprechend ihrer Reihenfolge, den Variablen zu. 


Wird bei der READ-Anweisung eine numerische Variable angege- 
ben, so muß die entsprechende Konstante in der Datazeile ein 
numerischer Wert sein. 


Wird bei der READ-Anweisung eine Zeichenkettenvariable ange- 
geben, so kann jede Konstante einer DATA-Anweisung gelesen 
werden. Numerische Konstanten können somit als Zeichenketten 
eingelesen werden. 


Hinweis: 


Diese eigentlichen numerischen Werte liegen dann als Zeichenkette 


vor, 


können aber durch die VAL-Anweisung wieder in einen nume- 


rischen Wert umgewandelt werden. 


* 


DATA-Anweisungen dürfen an jeder sinnvollen Stelle des Pro- 
gramms stehen. 


DATA-Zeilen besitzen keinen direkten Einfluß auf den Pro- 
grammablauf. 


Sind Doppelpunkte, Kommata oder Leerzeichen am Anfang oder 
Ende der Zeichenkette gewünscht, so muß diese als Zeichenket- 
tenliteral geschrieben werden. 


RESTORE setzt den sogenannten DATA-Zeiger auf den Anfang 
zurück, das heißt, die nächste READ-Anweisung greift wieder 
auf die erste DATA-Zeile zu. 


Wird der RESTORE-Anweisung eine Zeilennummer nachgestellt, so 


wird der DATA-Zeiger auf eben diese Zeile zurückgesetzt, so 
daß die nächste READ-Anweisung auf diese Zeile zugreift. 
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Il. Die Druckaufbereitung 


Die PRINT-Anweisung haben Sie bereits zur Ausgabe von Ergebnis- 
sen auf dem Bildschirm eingesetzt. Diese Anweisung gibt Texte, 
Graphiksymbole und Zahlen auf dem Bildschirm, einem Bildschirm- 
fenster oder auf dem Drucker aus. Bei der Eingabe von Programmen 
oder bei den Anweisungen im Kommandomodus kann das "PRINT" durch 
die Kurzform '"?" gleichwertig ersetzt werden. 

Das Fragezeichen ist hierbei die kürzere und schneller eingebbare 
Anweisungsform und wird von BASIC automatisch in ein "PRINT" 
umgewandelt. 

Sicher werden Sie schon festgestellt haben, daß manche Bild- 
schirmausgabe unübersichtlich war. Die Forderung ist also eine 
aufbereitete bzw. formatierte Ausgabe auf dem Bildschirm, die 
auch Druckaufbereitung genannt wird. 

Der BASIC-Interpreter stellt für eine formatierte Bildschirmaus- 
gabe spezielle PRINT-Anweisungen und weitere zusätzliche BASIC- 
Anweisungen zur Verfügung. 


Es sind zwei Arten der Druckaufbereitung zu unterscheiden: 
1) Die nichtformatierte Ausgabe im BASIC-Standardformat 


2) Die formatierte Ausgabe im PRINT USING-Format 


Das Standardformat 


Die Druckaufbereitung im Standardformat ist die am häufigsten 
benutzte Ausgabeform. Sie benutzt innerhalb der PRINT-Anweisung 
die Zeichen: Komma (,) und Semikolon (5). Diese Zeichen werden 
hier vom BASIC-Interpreter als Steuerzeichen ausgewertet. Die 
Wirkung dieser Steuerzeichen sollen Sie in diesem Kapitel selbst 
erproben. 


Geben Sie nicht direkt das Programm ein, da der >> CPC 464 << 
noch über frei belegbare Funktionstasten verfügt. Dieses Ausstat- 
tungsmerkmal sollten Sie häufig nutzen, da es eine enorme Ar- 
beitserleichterung darstellt. 
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Il. Die Druckaufbereitung 


Die Funktionstasten des >> CPC 464 << 
Kurzinformation: Funktionstastenbelegung 


* Funktionstasten sind alle Tasten des "Zehnerblocks", 
rechts neben der Haupttastatur. 


* Auch die kleine ENTER-Taste und der danebenliegende 
Punkt können als Funktionstasten belegt werden. 


* Jede dieser Tasten besitzt eine eigene Tastennummer 
bzw. einen eigenen Tastencode, unter der die einzelne 
Taste angesprochen werden kann. 

*% Die Tasten lassen sich mit der KEY-Anweisung mit jeg- 
lichen Zeichen belegen. Diese Zeichen können auch 
BASIC-Anweisungen sein. 


* Die Funktionstasten lassen sich jederzeit wieder mit 
der KEY-Anweisung umbelegen. 
Die KEY-Anweisung 


Die Anwendung der KEY-Anweisung lernen Sie direkt an diesem 
Beispiel kennen. 


Sie geben nun im Direktmodus 

KEY 129,"PRINT " 

KEY 130,"INPUT " 
ein und drücken nach jeder der beiden Eingabezeilen die ENTER- 
Taste. Die Belegung der zwei Funktionstasten ist damit abge- 
schlossen. Überprüfen Sie dieses durch Drücken der "1" und der 


"2" im Zehnerblock. Es werden PRINT und danach INPUT auf dem 
Monitor ausgegeben. 
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ll. Die Druckaufbereitung 





Die AUTO-Anweisung 

Eine weitere Arbeitserleichterung bei der Eingabe von Programmen 
stellt die BASIC-Anweisung AUTO dar. Sie schreibt automatisch 
Zeilennummern, so daß Sie diese nicht eingeben müssen. 


Beispiele für die Anwendung der AUTO-Anweisung: 


AUTO erzeugt die Zeilennummern 10,20,30,... 
AUTO 230 erzeugt die Zeilennummern 230,240,250,... 
AUTO ‚5 erzeugt die Zeilennummern 10,15,20,25,... 


AUTO 183,4 erzeugt die Zeilennummern 183,187,191,... 


Soll der AUTO-Modus verlassen werden, so drücken Sie einmal die 
ESC-Taste. 


Eingabeanleitung für das BASIC-Programm: 


l. AUTO im Direktmodus eingeben. 

2. Taste "2" im Zehnerblock anstelle von INPUT drücken 
3. Taste "1" im Zehnerblock anstelle von PRINT drücken 
4. Abschließend ESC-Taste drücken. 


Beispielprogramm: 


10 INPUT 
20 PRINT 
30 INPUT 
40 FRINTABA 

50 PRINT AsıBı A 

&0 PRINT A,B,A 

70 PRINT "ooouuunes euere nn ne" 
80 END 


wpD 


Ist das Programm vollständig eingegeben, dann starten Sie es mit 
der RUN-Anweisung und geben Sie die untenstehenden Beispielwerte 
bei den Abfragen ein. 
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Il. Die Druckaufbereitung 


Echo-Check 


Ihre Eingabe wird unmittelbar hinter dem Aufforderungszeichen auf 
dem Bildschirm protokolliert. Diese Art der Protokoll-Ausgabe 
heißt "Echo-Check", da sie wie ein "Echo" wirkt und Ihnen die 
sofortige Prüfung auf richtige Eingabe gestattet. 


Die Anweisung 20 gibt eine Bildschirmzeile tiefer den eingegebe- 
nen und bereits auf dem Bildschirm protokollierten Wert von A im 
BASIC-Standardformat aus. 

Nach Ihrer Eingabe von B wird diese wiederum unmittelbar hinter 
dem Fragezeichen auf dem Bildschirm protokolliert. 


RUN 
? 789 
789 

? 456 
Dann werden in den Folgezeilen durch mehrere unterschiedliche 
PRINT-Anweisungen die Variablen A und B nebeneinander ausgegeben. 
Die Wirkung der Steuerzeichen bei der PRINT-Anweisung 
Überprüfen Sie nun die Wirkweise der Steuerzeichen! 


Beachten Sie, daß 


* in der PRINT-Anweisung 40 A,B und A nebeneinander 
stehen und durch ein Leerzeichen getrennt sind. 


* in der PRINT-Anweisung 50 die Variablen A, B und A 
durch Semikola (;) getrennt sind. 


* in der PRINT-Anweisung 60 die Variable A, B und A 
durch Kommata getrennt stehen. 


* die gepunktete Linie Ihnen als Zählhilfe bei der Be- 
stimmung der Positionen der ausgegebenen Werte dient. 
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Il. Die Druckaufbereitung 





Die Bildschirmausgabe hat folgendes Aussehen: 


RUN 
? 789 
789 
? 456 
789 456 789 
789 456 789 
789 456 789 


Ready 


Sie erkennen, daß 


* die Ergebnisse der Anweisungen in Zeile 40 und 50 
identisch, 


* die in Zeile 60 ausgegebenen Werte an den Anfang be- 
stimmter Abschnitte geschrieben sind. 


Ableitung allgemeingültiger Regeln 


l. 


Ein Leerzeichen oder ein Semikolon zwischen den Variablen 
oder Zeichenketten einer Ausgabe-Liste bewirkt eine Ausgabe 
unmittelbar an das bereits ausgegebene, vorherige Zeichen. 
Diese Regel gilt in gleicher Weise für den Bildschirm wie für 
den Drucker (Nadeldrucker, Schönschreibdrucker). 


Stehen Variablen oder Zeichenketten einer Ausgabeliste durch 
ein Komma getrennt, so wird der Wert oder die Zeichenkette 
nach dem Komma am Anfang des nächsten Bildschirmabschnitts 
ausgegeben. Diese Bildschirmabschnitte werden Bildschirmzonen 
genannt. Die Abstände zwischen den Zonen sind auf 14 Zeichen 
bzw. 14 Spalten voreingestellt. 


Wird eine numerische Variable ausgegeben, so folgt auf die 
letzte Ziffer stets ein Leerzeichen. 
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4. Positive Werte erhalten anstelle des positiven Vorzeichens 
"+" ein Leerzeichen (blank). Negative Werte werden mit ihrem 
Vorzeichen ausgegeben. 


5. Ist am Ende einer Ausgabeliste kein Steuerzeichen (Semikolon 
oder Komma) angegeben, so wird bei der nächsten PRINT-Anwei- 
sung auf der nächsten Zeile die Ausgabe fortgesetzt. 


6. Wird ein Steuerzeichen als letztes Zeichen einer Ausgabeliste 
angefügt, so erfolgt die Datenausgabe der nächsten PRINT- 
Anweisung in der gleichen Art, als ob diese hier vorhandene 
Datenliste Bestandteil der vorherigen wäre, d. h. es wird 
kein Zeilenvorschub erzeugt. 


Überprüfen Sie die Regeln mit dem nächsten Beispiel! 


10 INPUT A 

20 PRINT A 

350 INPUT B 

35 Z6="ZEICHENKETTE" 

40 PRINT AB Z# 

SO PRINT As3Bjzs 

&0 PRINT A,B,Z# 

70 PRINT ".oosoueuounnunoens een nenn nun 


80 END 


RUN 
? 456789 

456789 
? -456789 

456789 -456789 ZEICHENKETTE 

456789 -456789 ZEICHENKETTE 

456789 -4567897 ZEICHENKETTE 


Ready 
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Die Bildschirmzonen und die ZONE-Anweisung 


Sie haben den Begriff Bildschirmabschnitt bzw. Bildschirm-Zone 
kennengelernt. Der >> CPC 464 << erlaubt es, im Gegensatz zu 
anderen Computertypen, diese Zonen mit der ZONE-Anweisung zu 
variieren. 


Kurzinformation zur ZONE-Anweisung: 


* ZONE(X) setzt die vertikalen Bildschirmzonen, die die 
PRINT-Anweisung mit dem Komma als Formatierungsanwei- 
sung nutzt. 


* Die Angabe von X bestimmt die Größe des Zwischenraums 
von zwei Ansprungpositionen und muß eine Zahl zwischen 
l und 255 sein. 


Beispiel: 10 MODE 1 
20 PRINT "Aa". "B", nu 
30 ZONE 10 
40 PRINT "ABC", "DEF", "GHLI" 
50 END 


Die LOCATE-Anweisung 


Eine weitere Möglichkeit, die Datenausgabe auf dem Bildschirm 
spalten- und zeilenweise zu steuern, bietet die LOCATE-Anweisung. 


Kurzinformation zur LOCATE-Anweisung: 


* Die LOCATE-Anweisung setzt den Textcursor an eine neue 
Bildschirmfensterposition. 


Beispiel: 


10 MODE 2 

20 X=5: Y=6 

30 LOCATE X,Y 

40 FRINT "Dieser Text beginnt in Spalte"X"und steht in Zeile"Y 


50 END 
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*% Die erste Angabe bestimmt die Spaltenposition. 
*% Die zweite Angabe bestimmt die Zeilenposition. 


* Die Angaben sollten ganzzahlige, numerische Ausdrücke 
sein, die in Abhängigkeit von der Größe des Bild- 
schirmfensters zu wählen sind. 


* Die linke obere Ecke des Monitorfensters besitzt hier- 
bei die Koordinaten Spalte=|1 und Zeile=]|. 


*% Beachten Sie, daß keine negativen Werte angegeben 
werden. 


*% Die LOCATE-Anweisung erlaubt die Angabe des Daten- 
strons. 


Die formatierte Ausgabe 


Diese Art der Ausgabe ist überall dort gefordert, wo zwingend auf 
einem exakt vordefinierten Platz oder Stelle eine Ausgabe erfol- 
gen muß. Diese Genauigkeit ist meist in kaufmännischen oder 
statistischen Tabellen die Voraussetzung für die Stimmigkeit der 
Ergebnisse. Hier müssen z.B. mathematisch vorgegebene Dezimal- 
stellen, die sich am Dezimalpunkt orientieren, entsprechend ihres 
Stellenwertes formatiert ausgegeben werden. Dieses hat so zu 
geschehen, daß auch die Einheit des Zahlenmaterials mit berück- 
sichtigt wird. 

Sie werden diese Notwendigkeit der Ausgabe direkt an dem unten- 
stehenden Beispiel ablesen können. 


Beispiel: unformatiert formatiert 
1286.2655 1286.2655 
22335.5 22335.5000 
8.633 8.6330 


Die unformatierte Ausgabe der Zahlenkolonne ist unübersichtlich 
und, z.B. für eine Addition, kaum geeignet. 
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Il. Die Druckaufbereitung 


Die vorstehende, formatierte Ausgabe weist neben der einheitli- 
chen Dezimalpunktposition noch eine gleiche Anzahl von Nachkomma- 
stellen auf. Die fehlenden Nachkommastellen wurden hier durch 
eine entsprechende Anzahl Nullen ausgeglichen. Die Dimensionen 
der Zahlen sind in dieser Form über den optischen Eindruck ab- 
schätzbar und entsprechen außerdem der bei einer Addition übli- 
chen Form. 


Die PRINT USING-Anweisung 


Eine formatierte Ausgabe zu programmieren, ist für Sie einfach zu 
verwirklichen, da hierzu die PRINT USING-Anweisung zur Verfügung 
steht. 


Die Form der Ausgabe wird hierbei durch "Steuerzeichen" bzw. 
"Platzhalter" angegeben. 


Programmbeispiele 
Beispiel für die PRINT USING-Anweisung: 
10 FRINT USING "HH. #####":169.4 


In Zeile 10 erkennen Sie die Platzhalter, die in Hochkommata 
eingeschlossenen Doppelkreuze (#), die auch Numerus-Zeichen ge- 
nannt werden. 

Jedes Numerus-Zeichen entspricht hierbei einer Ziffer. Der ange- 
gebene Punkt kennzeichnet die Position des Dezimalpunktes bei der 
Ausgabe und ist beliebig setzbar. Der Dezimalpunkt benötigt kei- 
nen Platzhalter. 


Überprüfen Sie nun die Ausgabeformen anhand des Programms und 


leiten Sie aus den Ergebnissen und dem Programmablauf allgemein- 
gültige Regeln ab! 
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MODE 1 

FRINT " Nr Zahl Format Ausgabe" 
PRINT STRING$ (32, 154) : PRINT 

ANZAHL 1=5 

ZAHL=123.425 


FOR ANZAHL2=0 TO 5 
FORMAT$=STRING$ (ANZAHL1, "#") +". "+STRING$ (ANZAHL2, "#") 
PRINT STR$ (ANZAHL2+1) 3". "5 ZAHL5" "3FORMATSS" "; 
FRINT USING FORMAT$: ZAHL 


100 ANZAHLI=ANZAHL1-1 

110 IF ANZAHL1=2 THEN PRINT 

120 NEXT ANZAHL2 

130 PRINT STRING$ (32, 154) : PRINT 


Ergebnis: 


Hilfen 


* 


Nr Zahl Format Ausgabe 


1. 123.425 HHuah. 123. 
2. 123.425 Haan. 123.4 
S. 123.425 #4. 123.43 


4. 123.425 #H.H44 %123.425 
5. 123.425 #.#H44# %123.4250 
6. 123.425 Hua %1253.42500 


für Ihre Programmanalyse: 


ANZAHLI bestimmt die Anzahl der Platzhalter vor dem 
Dezimalpunkt und wird in den Anweisungen der Zeilen 
40 und 100 bestimt. 


ANZAHL2 wird durch die FOR NEXT-Schleife bestimmt und 
gibt die Anzahl der Platzhalter nach dem Dezimalpunkt 
an. 


In Zeile 70 wird die eigentliche FORMAT$-Angabe zu- 
sammengesetzt aus: Platzhalter vor dem Dezimalpunkt 
plus Dezimalpunkt plus Platzhalter nach dem Dezimal- 
punkt. 
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* 


* 


ll. Die Druckaufbereitung 


Die Anweisung in Zeile 80 gibt die laufende Nummer, 
die auszugebende Zahl und das Format aus. 


Die Anweisung in Zeile 90 gibt die Zahl in ihrem 
angegebenen Format aus. 


Sie werden sicher den Zusammenhang zwischen Formatangabe und 
dazugehöriger Zahlenausgabe erkannt haben. Damit Sie Ihre gefun- 
denen Regeln überprüfen können, sind die ableitbaren Regeln nach- 
stehend aufgeführt. 


Regeln zur PRINT USING-ANweisung 


* 


Ist die Zahl stellenmäßig kleiner als die der Platz- 
halter, so wird die Zahl rechtsbündig mit führenden Leer- 
zeichen ausgegeben. 


Besitzt die angegebene Zahl rechts vom Dezimalpunkt weni- 
ger Stellen als Platzhalter rechts vom Dezimalpunkt vor- 
handen sind, so werden diese Stellen mit Nullen aufge- 
füllt. 


Sind mehr Platzhalter als Stellen der Zahl links vom 
Dezimalpunkt, so werden diese fehlenden Stellen mit Leer- 
zeichen aufgefüllt. 


Weist eine Zahl nur Nachkommastellen auf und sind links 
vom Dezimalpunkt Platzhalter angegeben, so wird bei der 
Ausgabe eine Null vor dem Dezimalpunkt vorgesetzt. 


Ist die Anzahl der Platzhalter vor dem Dezimalpunkt klei- 
ner als die Anzahl der Ziffern der auszugebenden Zahl vor 
dem Dezimalpunkt, so wird die gesamte Zahl geschrieben und 
zusätzlich ein Prozentzeichen (%) als Warnung für das 
nicht eingehaltene Format vorgestellt. 


Wird die Anzahl der Platzhalter rechts vom Dezimalpunkt 
von der auszugebenden Zahl überschritten, so wird diese um 
die entsprechenden Stellen gerundet ausgegeben, d. h. ab- 
bzw. aufgerundet. 
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Die Formatierungszeichen der PRINT USING-Anweisung 


Formatangaben 
Symbol Formatausführung 
# Gibt eine Ziffer einer Zahl aus. Das Ausgabeformat ent- 


%*%* 


$$ 


LUR) 


tt 


! 
& 


<space> 


spricht der Anzahl der Symbole. Wird diese kleiner als 
die Zahl, so richtet sich die Ausgabe nach der Zahl und 
setzt ein Prozentzeichen "X" als Warnung vor die Zahl. 


Bestimmt die Position des Dezimalpunktes bei einer Zahl. 


Gibt das Vorzeichen Plus "+" bei positiven Zahlen aus, 
bei negativen das entsprechende, negative Vorzeichen. 


Füllt bei einer kleineren Zahl die führenden Leerstellen 
mit Sternen '*" auf und entspricht in der Formatausfüh- 
rung dem Symbol '#". 

Es wird ein Dollarsymbol vor der ersten Ziffer ausgege- 
ben und entspricht in der Formatausführung dem Symbol 
"4 " 5 


Füllt die führenden Leerstellen mit Sternen auf und gibt 
ein Dollarsymbol vor der ersten Ziffer aus. 


Gibt eine Zahl im Exponentialformat aus. 


Fügt alle drei Stellen links vom Dezimalpunkt ein Komma 
ein. 


Gibt bei einer Zeichenkette nur das erste Zeichen aus. 
Gibt ein variables Format an. 


Gibt entsprechend viele Leerzeichen aus. 
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Die Druckaufbereitung mit Tabulatoren 
Die PRINT TAB-Anweisung 


Kenntnisse über die Anwendung der Anweisung PRINT TAB(n) sind bei 
der Arbeit mit Tabellen, beim Drucken bzw. Ausgeben auf dem 
Bildschirm von Ergebnissen und Bedieneranweisungen erforderlich. 


Beispiel: 
10 ’Programmbeispiel fuer TAB 
’ 


30 ’Tabulatoren setzen 


50 MODE 2 

60 FOR I=1 TO 48 STEP & 
70 PRINT TAB(I) "Hallo!" 
80 NEXT 

90 END 


RUN 
Hallo! 
Hallo! 
Hallo! 
Hallo! 
Hallo! 
Hallo! 
Hallo! 
Hallo! 

Ready 


Bevor Sie die kurze Programmbeschreibung lesen, sollten Sie die 
Variable I betrachten und die Wirkung von PRINT TAB(I) erkannt 
haben. 
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Hilfen zur Programmanalyse: 


* Sie finden die Anweisung PRINT TAB(I) in der Anwei- 
sungszeile Nr. 70. 


* Sie steht innerhalb einer FOR NEXT-Schleife. 


* Die Schrittweite, in der die Laufvariable I hochge- 
zählt wird, ist sechs. 


* Nach jedem Schleifendurchlauf gilt I=I+6. 


* Die Ausgabe mit der PRINT TAB(I) -Anweisung wird daher 
um sechs Spalten nach rechts versetzt vorgenommen. 


* Der neue Zeilenanfang erklärt sich aus dem fehlenden 
bzw. nicht nachgestellten Komma bzw. Semikolon in der 
Zeile 70. 


* Das Bildschirmformat wird in Zeile 50 auf 80 Spalten 
gesetzt. 


TAB wird stets in Verbindung mit einem Klammerpaar verwendet. 
Innerhalb der Klammern steht entweder eine Variable, oder eine 
Konstante, oder auch ein arithmetischer Ausdruck. Die in dem 
Klammerpaar stehende Größe bestimmt die Spaltenposition. 


Beispiele für die TAB Anwendung 


TAB(I) (I = Variable) 
TAB(10) (10 = Konstante) 
TAB(I+N*2) (I+N%2 = arithmetischer Ausdruck) 
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Programmbeispiel für die PRINT TAB-Anweisung 


In dem folgenden Programmbeispiel werden Mengen und Preise einge- 
geben und die jeweiligen Beträge berechnet. Insgesamt sollen neun 
Wertepaare nacheinander eingegeben werden. Auf dem Bildschirm 
‘. erscheint also von | bis 9 nacheinander: 


l. Menge:? 
Preis:? 


Das Fragezeichen als Anforderungszeichen fordert Sie zur Daten- 
eingabe auf. In Abhängigkeit von der FOR NEXT-Schleife geschieht 
dies insgesamt 9 mal. Nachdem die letzte Dateneingabe erfolgt 
ist, wird das Ergebnis so in Tabellenform ausgegeben, wie dies 
nachstehend beispielhaft gezeigt wird. 


Beispielprogramm: 


10 ’ Zweites Programmbeispiel fuer TAB 
20 MODE 2 

30 "Arbeiten mit Tabulatoren 

40 ’-—umunnunumnnnn nun nn nen mn nun nun 
S50 ’Eingabe von Mengen und Preisen 

&0 FOR I=1 TO 9 


70 PRINT 

80 PRINT I1"."js3 INPUT "Menge: ";M(I) 

90 INPUT " Preis: ";P(D) 

100 B(DI=M(I)KP(T) 

110 NEXT I 

120 
130 "Ausgabe der Daten in Tabellenform 
 — 


150 PRINTIPRINTIPRINT 

160 PRINT TAB(20)"Menge x"TAB(30) "Preis = "TAB(39) "Betrag" 
170 PRINT TAB(20) "----------------- " 

180 FOR I=1 TO 9 

190 PRINT TAB(20) M(I) TAB(30) P(I) TAB(40) B(1) 

200 NEXT I 
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Ergebnis: !!! IMenge x Preis = Betrag!!! 

2 3 & 

2 5 10 

1 5 5 

3 8 24 

4 6 24 

1 9 9 

4 6 24 

12 5 60 

11 14 154 


Sie sollten nun anhand der ausgegebenen Tabelle die Wirkung der 
TAB-Anweisung analysieren und dann die untenstehenden, allgemei- 
nen Erläuterungen zur PRINT TAB-Anweisung zu Rate ziehen. 


Hinweis: 


Die Daten für Menge, Preis und Betrag werden in diesem Pro- 
grammbeispiel in drei "eindimensionalen Tabellen" eingelesen. 
Dieses Thema wird ausführlich auf den nächsten Seiten abge- 
handelt. Beschränken Sie sich hier nur auf die Wirkung der 
TAB-Anweisung. 


Die Wirkweise der PRINT TAB(I)-Anweisung 


Allgemein läßt sich die Wirkungsweise von PRINT TAB(I) so be- 
schreiben: 


Durch TAB(I) wird in einer PRINT-Anweisung der Cursor bis zu 
derjenigen Position nach rechts bewegt, die dem in Klammern 
stehenden Wert von I entspricht. 


Für den Fall, daß der Cursor bereits rechts von der Position I 
steht, wird der Zeilenrest mit Leerzeichen aufgefüllt und eine 
neue Zeile begonnen. Sie wird dann bis zur Position I mit Leer- 
zeichen angefüllt. 
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Im übrigen läßt sich TAB(I) annähernd mit der Tabulation auf der 
Schreibmaschine vergleichen. Auch dort dienen Tabulatoren dazu, 
das Schreiben von Tabellen zu erleichtern. 


Zusammenfassung: 


* TAB(I) kann nur in Verbindung mit einer PRINT-Anwei- 
sung genutzt werden. 


*% Die PRINT TAB(I)-Anweisung positioniert den Cursor auf 
die I-te Spalte einer Zeile. 
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Tabellenarten 
Die Programmierung von Tabellen, in denen ganze Folgen von Namen 
oder Folgen von Zahlen abgelegt und von BASIC bearbeitet werden 
können, setzt Kenntnisse von der Funktion und dem Aufbau von 
Tabellen voraus. Tabellen dienen immer der Entflechtung von kom- 
plexen Zusammenhängen, die in ihnen übersichtlich und schnell 
überschaubar dargestellt werden können. 
Es sind bei der Betrachtung verschiedene Arten von Tabellen zu 
unterscheiden: 

* Eindimensionale Tabellen 

und 

% Mehrdimensionale Tabellen 
Die Unterscheidung in der Dimension zeigt die Richtungen an, in 
der sich die Tabelle ausdehnt, d.h. die Tabellen-Struktur wird 
hiermit angegeben. Die Dimension einer Tabelle bestimmt indirekt 
auch ihre spätere An- und Verwendung. 


Die eindimensionale Tabelle: 


Eine eindimensionale Tabelle besteht immer aus einer einzigen 
Zeile, weist aber eine oder beliebig viele Spalten aus. 


Beispiel: 


Es wird die Spannung an einem bestimmten Meßpunkt abgegriffen 
und in einer eindimensionalen Tabelle notiert. 


Meßwertreihe: 10.2, 10.5, 10.8, 10.9, 11.0, 10.5 
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Die mehrdimensionale Tabelle: 


Eine mehrdimensionale Tabelle besteht aus mehreren Spalten und 
besitzt gleichzeitig auch zwei oder mehrere Zeilen. 


Beispiel: 


Diese zweidimensionale Tabelle gibt eine laufende Nummer, den 
Artikel, den eingelesenen Einzelpreis, die Menge und den 
Betrag wieder. Die Summe der Beträge und der Durchschnittsbe- 
trag werden in der Tabelle erfaßt. 


Nr. 1 Artikel ı Einzelpreis [DM] ı Menge ı Betrag [DM] 
l. ı Butter 1 2.49 i 1.00 2.49 
2. I Zucker j 1.49 j 3.00 4.47 
3. 1 Brot ! 3.70 j 1.00 3.70 
4. ı Schokolade j 1.39 j 5.00 4 6.95 
5, ı Marmelade j 1.98 ! 4.00 4 7,92 
6 1 Milch j 1.09 i 2.00 2.18 
7. t Joghurt j 0.89 1 6.00 ı 5.34 
Gesamt: 22.00 33.05 
Durchschnittsbetrag «sc sus. 0 ® 4,72 DM 


Das Beispiel zeigt eine mehrdimensionale Tabelle mit der Dimen- 
sion zwei, d.h. sie dehnt sich in zwei Richtungen aus. Die waag- 
rechte (horizontale) Richtung wird bei einer zweidimensionalen 
Tabelle meist mit X, die senkrechte (vertikale) Richtung meist 
mit Y bezeichnet und entsprechend beschriftet. 

Vergleichen Sie hierzu das Projektprogramm: "Zeichen-Definition". 


Eindimensionale Tabellen 

Vektoren 

Eine eindimensionale Tabelle wird in der Datenverarbeitung auch 
oftmals Vektor genannt. Ein derartiger Vektor kann wie in dem 
obigen Beispiel waagerecht oder senkrecht angeordnet sein. Er 


besteht aus einem oder mehreren Elementen, die unter einem Ober- 
begriff zusammengefaßt werden können. 
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Dem Oberbegriff kann unter BASIC eine Variable zugeordnet werden. 
In dem zweiten Beispiel kann der Vektor mit Anschrift bezeichnet 
werden. 


Beispiel: 
Anschrift: Titel, Name, Vorname, Straße, Ort, Branche 


Sowohl die Elemente als auch der Vektorname sind hierbei vom Typ 
Zeichenkette. Es können also nicht nur Zahlen, sondern auch Zei- 
chenketten in einer eindimensionalen Tabelle erfaßt werden. Für 
die Kennzeichnung der Variablen gilt weiterhin die Regel, daß die 
Variable das Dollarzeichen ($) aufweisen muß, d.h. es kann 


N$S=Anschrift 
gesetzt werden. 


Indizes 


Der Vektor ist in dem Beispiel waagerecht angeordnet und besteht 
aus insgesamt 6 Elementen: 


Vektorelemente: l. Element ist der "Titel" 
2. Element ist der "Name" 
3. Element ist der "Vorname" 
4. Element ist die "Straße" 
5. Element ist der "Ort" 
6. Element ist die "Branche" 


Die Variable N$ kennzeichnet den Vektornamen, so daß 
N$C1),N$(2),N$(3),N$(4),N$(5),N$(6) 


die einzelnen Vektorelemente bezeichnen. Die in Klammern gesetzte 
Zahl wird als Index bezeichnet und bestimmt die Position eines 
Elements im Vektor. 

In der mathematischen Schreibweise ist die Indexangabe tiefge- 
stellt. In der Computer-Schreibweise müssen die Indizes (Plural 
von Index) in Klammern hinter den Variablennamen angegeben wer- 
den, entsprechend dem oben im Beispiel angegebenen Format. 
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Die DEFSTR-Anweisung 


Sie erkennen, daß die Variable N sechsmal auftritt und zusätzlich 
ein Dollarzeichen angefügt werden muß, da es sich bei den Vektor- 
elementen um Zeichenkettenvariablen handelt. Der BASIC-Interpre- 
ter des >> CPC 464 << erlaubt hier eine einfachere Vorgehens- 
weise. Die Zeichenkettenvariablen müssen dann nicht mit dem Dol- 
larzeichen gekennzeichnet werden, wenn Sie am Anfang des Pro- 
gramms vor dem ersten Aufruf im selben Programm als Zeichenket- 
tenvariable definiert werden. Das kann mit der 


DEFSTR 
-Anweisung erfolgen. 


Sie ersparen sich Schreibarbeit und vermeiden durch die DEFSTR- 
Anweisung Fehler, da der Computer automatisch die Variable als 
eine Zeichenkettenvariable verarbeitet. 

Wird N als Zeichenkettenvariable mit der DEFSTR-Anweisung am Pro- 
grammanfang definiert, so darf für die Vektorelemente: 


Titel, Name, Vorname, Straße, Ort, Branche 
NC1), N(2), N(3), N(4), N(5), N(6) 

ohne Dollarzeichen geschrieben werden. 

Es besteht nun folgender Zusammenhang: 


In N(1) steht der Titel 
In N(2) steht der Name 

In N(3) steht der Vorname 
In N(4) steht die Straße 
In N(5) steht der Ort 

In N(6) steht die Branche 


Unter BASIC kann nun auf ein bestimmtes Element des Anschrift- 


Vektors N, z.B. auf den "Vornamen", durch einfachen Aufruf der 
indizierten Variable N(3) zugegriffen werden. 
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Zusammenfassung: 


* Man unterscheidet eindimensionale und mehrdimensionale 
Tabellen. 


*% Die eindimensionale Tabelle besitzt immer nur eine 
Zeile, kann aber mehrere Spalten aufweisen. 


* Die mehrdimensionale Tabelle besteht aus mindestens 
zwei Zeilen und mehreren Spalten. 


* Die eindimensionale Tabelle wird in der Datentechnik 
Vektor genannt. 


* Ein Vektor besteht aus mehreren Vektorelementen. 


* Die Vektorelemente können Zeichenketten oder numeri- 
sche Werte sein. 


* Der Index einer Variablen kennzeichnet die Position im 
Vektor und muß in runden Klammern angegeben werden. 


* Auf die indizierte Variable kann unter BASIC direkt 
zugegriffen werden. 


* Die DEFSTR-Anweisung erklärt einen Anfangsbuchstaben 
zum Typ Zeichenkette. 


Die Dimensionierung von Feldern 
Die DIM-Anweisung 


Der BASIC-Interpreter kann ohne besondere Anweisung auf elf Ele- 
mente eines Vektors zugreifen, dessen Indizes im Bereich von 0 
bis 10 liegen müssen. Werden bei einem Programmablauf‘ Indizes 
größer als zehn benötigt, so muß das dem BASIC-Interpreter mitge- 
teilt werden. 

Die Anweisung hierfür lautet DIM, wobei DIM für DIMension steht. 
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Die BASIC-Anweisung DIM dimensioniert und stellt den erforderli- 
chen Platz im Arbeitsspeicher des >> CPC 464 << für die Elemente 
des Vektors zur Verfügung. Hinter DIM wird die zu indizierende 
Variable gesetzt und in Klammern der höchste, benötigte Index 
angegeben. 


Die Anweisung 

DIM N(13) 
teilt dem Computer mit, daß eine indizierte Variable mit dem 
Namen N existieren soll. Die größtmögliche Anzahl von Elementen 
liegt um eins größer als der angegebene höchste Index, da der 


BASIC-Interpreter mit der Indizierung beim Index Null beginnt: 


N(0), NC1), N(2), N(3), N(4), N(5), N(6), N(7), N(8), 
N(9), NC10), NC11), NC12), N(13) 


So ergeben sich bei der Dimensionierungsanweisung DIM N(13) ins- 
gesamt 14 Tabellenelemente! 


Zusammenfassung: 


* In einer DIM-Anweisung steht zuerst die Variable, die 
als Index-Variable deklariert wird. 


* Der Index, der das höchste Element bestimmt, wird in 
runden Klammern nach der Variablen gesetzt. 


* Der BASIC-Interpreter stellt immer zusätzlich das 
Element Null zur Verfügung. 


*% Die Anzahl der maximal möglichen Elemente ist daher 
immer um eins größer als der angegebene höchste Index. 


*% Elemente bis zum Index 10 werden vom BASIC-Interpreter 
automatisch zur Verfügung gestellt. 


Sie haben sich nun die Voraussetzungen für das folgende kleine 
Programmbeispiel erarbeitet. 
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Programmbeispiele mit 


Hilfen zur Analyse: 


DIM N(6) 

FOR I=1.T0 & 
N(I)=1x2 

NEXT I 

FOR I=1 TO & 

PRINT N(ID) 

NEXT I 

PRINT ıPRINT 

FOR I=6& TO i STEP -1i 


100 PRINT N(TI) 
110 NEXT I 
120 END 


Bevor die einzelnen Programmzeilen erläutert werden, starten Sie 
das Programm bitte mit der RUN-Anweisung. 


Sie erhalten dann das Ergebnis: 


Ready 


Anhand des Ergebnisses sollten Sie nun in der Lage 


Programm zu analysieren. 
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Hilfen zur Programmanalyse: 


* 


In der ersten Programmzeile finden Sie die Dimensio- 
nierungsanweisung DIM N(6). 


Diese Dimensionierung ist nicht notwendig, da der 
Interpreter ohnehin bei einer indizierten Variablen II 
Elemente (von O bis 10) zur Verfügung stellt. 


Es werden aber durch die Dimensionierung N(6) nicht 
Il, sondern nur 7 Elemente (von 0 bis 6) zur Verfügung 
gestellt. 


Durch eine Dimensionierung kleiner 10 wird im Arbeits- 
speicher des >> CPC 464 << Platz gespart, den man 
anderweitig verwenden kann! 


Das Programm enthält drei FOR NEXT-Schleifen mit fol- 
gendem Aufbau: 


l. Schleife: 20 FOR I = 1 TO6 
30 ... 
40 NEXT I 


2. Schleife 50 FOR I = 1 TO 6 
60 ... 
70 NEXT I 


und die 


3. Schleife: 90 FOR I = 6 TO I STEP -I 
100 ... 
110 NEXT I 
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Mit anderen Worten: In den ersten beiden Schleifen wird die 
Laufvariable I von | auf 6 hochgezählt. In der 3. Schleife wird 
sie dagegen von 6 auf | heruntergezählt. 


* In den ersten beiden Schleifen ist der Anfangswert | und 
der Endwert 6, in der dritten Schleife ist der Anfangswert 
6 und der Endwert |. 


* In keiner der Schleifen gibt es also einen Anfangs- oder 
Endwert "NULL". 


Ergebnis: 


Es werden für den Programmablauf nur 6 Elemente benötigt. Daher 
ist es sinnvoll, eine andere Programmiertechnik anzuwenden, um 
eine indizierte Variable mit nur sechs Elementen vorzusehen. 
Betrachten Sie hierzu bitte das folgende Programm: 


10 DIM A(5) 

20 FOR I=0 TO 5 
SO A(I)=(1+1)%2 
40 NEXT I 

50 FOR I=0 TO 5 
&0 PRINT A(I) 
70 NEXT I 

80 PRINT: FRINT 
90 FOR 1=5 TO O0 STEP -1i 
100 PRINT A(I) 
110 NEXT I 

120 END 


In diesem Programm hat die Laufvariable einen Anfangswert von 0 
und einen Endwert von 5, insgesamt also 6 Elemente. 
Es wird zusätzlich in der dritten Programmzeile 


So AlI)=(I+1)x2 


dafür gesorgt, daß keine Multiplikation mit Null stattfindet, 
indem der Multiplikand I um | erhöht wird (I+l). 
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In beiden Programmen wird deutlich, daß 
* in der ersten Schleife sechs Elemente besetzt werden. 


* in der zweiten Schleife die Inhalte der Elemente auf 
dem Bildschirm ausgegeben werden, wobei die Indizes in 
aufsteigender Folge angesprochen werden und 


* in der dritten Schleife die Inhalte der Elemente A(I) 
bzw. N(I) mit absteigender Index-Folge ‚ausgegeben wer- 
den. 


Dieses geschieht mit der Laufanweisung 
FOR 1=5 TO 0 STEF -1 | 
im zweiten Programm bzw. durch die entsprechende Anweisung 
90 FOR I=6 TO 1 STEF -1 
im ersten Programm. 


Sie sollten an dieser Stelle nochmals den Programmablaufplan zu 
dem Beispiel durcharbeiten, der auch dem vorstehenden Programm 
entspricht, wobei Sie die kleinen Unterschiede soeben erarbeitet 
haben. 


Mehrdimensionale Tabellen 


Im Alltag sind mehrdimensionale, in der Regel zweidimensionale 
Tabellen am häufigsten anzutreffen. Tabellen also, die sich in 
der waagrechten (horizontalen) und in der senkrechten (vertika- 
len) Richtung hin ausdehnen. Diese zweidimensionalen Tabellen 
besitzen demnach eine Matrixstruktur, bestehend aus Zeilen und 
Spalten. 


Sie haben bereits eindimensionale Tabellen kennengelernt, deren 


Elementvariablen indiziert wurden, d. h. die Variable war mit 
einem Index versehen. 
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Beispiel: 


NC1),N(2),N(3),N(4) 


Indizierung von mehrdimensionalen Tabellenelementen 
Ähnlich der eindimensionalen kann auch eine mehrdimensionale 
Tabelle ganz einfach mit indizierten Variablen programmiert wer- 


den. Die Elementvariablen weisen in diesem Fall entsprechend 
viele Indizes auf. 


Beispiel für ein zweidimensionales Tabellenelement: 


A(3,4) 


Feldelemente eines zweidimensionalen Feldes 
Hiermit wird in einer zweidimensionalen Tabelle eindeutig ein 
Element bzw. Feldelement angesprochen. Dieses Element findet sich 
in der dritten Spalte und der vierten Zeile der Tabelle. 

A(1,1) A(2,1) A(3,1) A(4,1) 

A(1,2) A(2,2) A(3,2) A(4,2) 

A(1,3) A(2,3) A(3,3) A(4,3) 

A(1,4) A(2,4) A(3,4) A(4,4) 

A(1,5) A(2,5) A(3,5) A(4,5) 
Die vorstehende Tabelle enthält 4 mal 5 Feldelemente. Eine DIM- 
Anweisung ist in diesem Beispiel nicht unbedingt notwendig, da 
der BASIC-Interpreter automatisch Elemente bis zum Index 10 auch 
bei mehrdimensionalen, indizierten Variablen zur Verfügung 
stellt, sobald eines dieser Elemente aufgerufen wird. 


Es ist aber ratsam, dennoch eine DIM-Anweisung zu programmieren, 
da sonst unnötig Speicherplatz verschenkt wird. 
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Dimensionierung des zweidimensionalen Feldes 


Sollte nun eine DIM-Anweisung gewünscht sein, so muß sie für das 
Beispiel wie folgt aussehen: 


DIM A(4,5) 


Hierdurch werden (4 plus I) mal (5 plus I)= 30 Elemente für die 
Variable A als indizierte Variable reserviert. Die Gesamtzahl der 
möglichen Elemente liegt bei jedem Index um eins größer, da der 
BASIC-Interpreter mit der Indizierung beim Index Null beginnt. An 
dem nächsten Beispielprogramm können Sie Ihre bisher gewonnenen 
Kenntnisse Überprüfen, indem Sie den Aufbau und die Zählweise des 
Programms analysieren und mit dem Programmergebnis vergleichen. 


10 MODE i 

20 DIM A(3,5) 

30 FOR I=1 TO 3 

40 FOR J=1 TO 5 

50 A(I,J)=I8) 

60 PRINT"I ="Ig" J etjg"g ACHT", "J") w"Al1,)) 
70 NEXT J 

80 NEXT I 


c 
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Hilfen für Ihre Programmanalyse: 


* 


In Zeile 20 wird ein Feld mit 24 Elementen dimensio- 
niert. 


Das Programm enthält zwei FOR NEXT-Schleifen, die 
geschachtelt sind. 


Die äußere FOR NEXT-Schleife wird 3 mal durchlaufen. 


Die innere FOR NEXT-Schleife mit der Laufvariablen J 
wird durch die äußere Schleife insgesamt dreimal auf- 
gerufen und bei jedem Aufruf fünfmal durchlaufen. 


Die innere Schleife wird demnach insgesamt fünfzehn 
mal durchlaufen, so daß 15 Feldelementen das Produkt 
der Laufvariablen zugewiesen wird. 


In Zeile 60 werden die Laufvariablen, ihre Werte, die 
Bezeichnung des aufgerufenen Feldelements und sein 
Inhalt ausgegeben. 


Die PRINT-Anweisung mit Zeichenkettenliteralen 


Einige zusätzliche Erläuterungen zur Ausgabezeile 60: 


&0 


| 
1 


1) 


2) 


3) 


PRINT"I "5" J z"jg"3 AC"1","3") m="sA(1,J) 
| u a zen 
2 34 6 7 9 ıı 33 15 

5 8 10 12 14 


Laufende Zeilennummer = Anweisungsnummer 


Geschütztes BASIC-Wort PRINT = Drucke (hier: gib auf 
dem Bildschirm aus! 


Zeichenkette zur Ausgabe der Zeichenfolge I = auf dem 
Bildschirm; die Zeichenkette muß in Anführungszeichen 


gesetzt werden: "I =", 
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5) 


6) 


7) 


8) 
9) 


10) 


11) 


12) 


13) 
14) 


15) 


12. Das Arbeiten mit Tabellen 


Laufvariable I aus der äußeren Schleife, deren jewei- 
liger Inhalt auf dem Bildschirm ausgegeben werden 
soll. 


Trennzeichen; wir sprechen darüber im Kapitel "Druck- 
aufbereitung". 


Zeichenkette; vgl. unter 3). 

Laufvariable J aus der inneren Schleife, deren jewei- 
liger Inhalt auf dem Bildschirm ausgegeben werden 
soll. 

Trennzeichen; vgl. unter 5). 


Zeichenkette; vgl. unter 3). 


Hier wird der Inhalt der Laufvariablen I auf dem 
Bildschirm ausgegeben. 


Zeichenkette; vgl. 3). 


Hier wird der Inhalt der Laufvariablen J auf dem 
Bildschirm ausgegeben. 


Zeichenkette; vgl. unter 3). 
Trennzeichen; vgl. unter 5). 


Indizierte Variable A, hinter der in Klammern die 
beiden Indizes I und J angegeben sind. 
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Einführung 
In dem Einführungskapitel "Arbeiten mit Tabellen" wurden zwei 
eindimensionale Tabellen vorgestellt. Die erste erfaßte die abge- 
griffene Spannung an einem bestimmten Meßpunkt: 

Meßwertreihe: 10.2, 10.5, 10.8, 10.9, 11.0, 10.5 
Die zweite eindimensionale Tabelle enthielt die Tabellenelemente: 


Titel, Name, Vorname, Straße, Ort, Branche 


Der Oberbegriff bzw. Vektornamen lautete "Anschrift" und für die 
Vektorelemente wurde die indizierte Variable N$(I) eingeführt: 


Vektorelemente: 


N$S(1) <-- Titel N$(4) <-- Straße 
N$(2) <-- Namen N$(5) <-- Ort 
N$(3) <-- Vornamen N$(6) <-- Branche 


Durch Aufruf einer der indizierten Variablen kann nun auf ein be- 
stimmtes Element unter BASIC zugegriffen werden. 


Wenn Sie die beiden hier angesprochenen, eindimensionalen Tabel- 
len miteinander vergleichen, werden Sie feststellen, daß sie sich 
in einem Punkt voneinander unterscheiden. 

Prüfen Sie den Unterschied! 


Hilfen: 


* Im Beispiel der Meßwertreihe handelt es sich um nume- 
rische Werte. 


* Die zweite vorgestellte Tabelle enthält als Vektorele- 
mente ausschließlich Zeichenketten. 


Im Einführungskapitel "Arbeiten mit Tabellen" wurde als Ergebnis 


abgeleitet, daß die Vektorelemente numerische Werte oder aber 
Zeichenketten sein können. 


124 


13. Zeichenkettenverarbeitung in Tabellen 


Nun handelt es sich aber bei einer normalen Anschrift nicht nur 
um Zeichenketten. Die wichtigen Daten, Postleitzahl und Telefon- 
nummer, sind numerische Werte, so daß beide Arten nebeneinander- 
stehend verarbeitet werden müssen. 

Weiterhin ist es nützlich, auch Sonderzeichen für bestimmte Ken- 
nungen innerhalb der numerischen Teile der Anschrift verwenden zu 
können, wie z. B. bei der Telefonnummernangabe eine Klammer oder 
aber einen Binde- oder Schrägstrich zur Trennung von Vorwahl- und 
Teilnehmernummer. 

Das kann nur erreicht werden, indem auch die numerischen Teile 
als Zeichenketten behandelt werden. BASIC ermöglicht die Verar- 
beitung von numerischen Werten als Zeichenketten, wenn sie schon 
beim Einlesen mit der LINE INPUT-Anweisung als solche behandelt 
werden. 


Die LINE INPUT-Anweisung 
Kurzinformation zur LINE INPUT-Anweisung: 


* Sie ermöglicht, Daten zeilenweise in das laufende Pro- 
gramm im Dialog einzugeben und an eine Variable zu 
übergeben. 


* Es werden alle eingegebenen Zeichen bis zum nächsten 
ENTER der <Variable$> übergeben. 


* Die Eingabe darf maximal 255 Zeichen umfassen und muß 
durch Drücken der ENTER- Taste abgeschlossen werden. 


* Wird das Semikolon ";" direkt nach der INPUT-Anweisung 
gesetzt, so wird der automatische Zeilenvorschub von 
der LINE INPUT-Anweisung unterdrückt. 


* Das zwischen <Abfrage> und <Variable> befindliche 
Semikolon ";'" kann durch ein Komma "," ersetzt werden. 
Es hat hier nicht die Bedeutung, wie Sie sie von der 
INPUT-Anweisung kennen. 


%*% Das Fragezeichen wird nicht ausgegeben und muß, falls 
gewünscht, an die <Abfrage> mit angehängt werden. 
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*% Der Vorteil dieser Anweisung gegenüber der INPUT- 
Anweisung ist der, daß der unkundige Programmbenutzer 
mehrere Daten als Einheit eingeben kann, ohne hierbei 
auf die Trennung achten zu müssen. 


* Es müssen bei vorangestellten Leerzeichen bzw. ent- 
haltenen Kommata keine Anführungszeichen gesetzt wer- 
den. 


Die STR$-Anweisung 


Eine weitere Möglichkeit bietet die STR$-Anweisung, die Zahlen in 
Zeichenketten umwandelt. 


Kurzinformation zur STR$-Anweisung: 


*% STR$(<Zahl>) verwandelt den numerischen Wert einer 
<Zahl> in eine Zeichenkette 

* Die jeweiligen Vorzeichen "+" und "-" 

Zeichenkette. 


gehören zur 


* Das positive Vorzeichen wird als "blank" (Leerzeichen) 
ausgegeben. 


Beispiel: 10 MODE 1 
20 A$=5TR$ (FI) 
30 B$=5TR$(-FI) 
40 FRINT FIs-FI 
50 PRINT AtıBs 
&0 PRINT LEN(A$®),LEN(B®$) 


RUN 

3.14159265 -3. 14159265 
3.14159265-3.14159265 
11 11 

Ready 
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Anwendungsfall: "Telefonnummernverzeichnis" 


Es soll nun ein BASIC-Programm erstellt werden, das den Namen, 
den Vornamen und die Telefonnummer mit der Vorwahlnummer, ge- 
trennt mit einem Schrägstrich, in eine zweidimensionale Tabelle 
einliest. Das Programm kann für Ihre Telefonnummern-Verwaltung 
dienen. 

Die Zahl der Teilnehmer soll hierbei auf 15 Stück begrenzt blei- 
ben. Der Wert ist beispielhaft und änderbar! 


Vorüberlegungen zum Programmaufbau 


l. Die Elemente des Telefon-Verzeichnisses können alle als Zei- 
chenkette aufgefaßt werden, so daß die indizierte Variable das 
Dollarzeichen als Kennung einer Stringvariable aufweisen muß. 
Eine Vereinfachung der Schreibweise bietet in diesem Fall die 
DEFSTR-Anweisung. Sie erlaubt die Definition aller Variablen- 
namen mit dem angegebenen Anfangsbuchstaben als Typ Zeichen- 
kette, so daß das Dollarzeichen entfallen kann. Hieraus leitet 
sich die Programmanweisung DEFSTR N ab, mit der N als Typ 
Zeichenkette bestimmt wird. 


2. Soll nur eine Telefonnummer mit den entsprechenden anderen 
Daten eingelesen und erfaßt werden, so ist eine eindimensio- 
nale Tabelle mit drei Vektorelementen ausreichend. 


Teilnehmer <-- Vorname Name Vorwahl/Rufnummer 
Teilnehmer <-- N(I) N(2) N(3) 


Dagegen muß eine zweidimensionale Tabelle programmiert werden, 
wenn mehrere Teilnehmer erfaßt werden sollen. 


l. Teilnehmer: N(1,1) N(1,2) N(1,3) 
2. Teilnehmer: N(2,1) N(2,2) N(2,3) 
3. Teilnehmer: N(3,1) N(3,2) N(3,3) 
4. Teilnehmer: N(4,1) N(4,2) N(4,3) 
5. usw. 


Sie erkennen, daß der erste Index immer der Nummer des Teil- 


nehmers entspricht, so daß die Elemente des dritten Teilneh- 
mers immer den Index N(3,X) besitzen. 
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Wird der zweite Index, hier mit dem Platzhalter X gekennzeich- 
net, mit 2 angegeben, so wird eindeutig das zweite Element, 
hier der Name des dritten Teilnehmers, angesprochen. Für die 
Dimensionierungsanweisung gilt weiterhin, daß 15 Teilnehmer 
erfaßt werden sollen. Die entsprechende Anweisung lautet dann: 


DIM N(15,3) 


d.h. es können maximal 15 Teilnehmer mit je drei Angaben 
eingelesen und ausgegeben werden. 


Der zweite Index besitzt bei jedem Teilnehmer die gleichen 
Werte, so daß sie fest vorgegeben werden können. Der erste 
Index läuft von I und erhöht sich um I, wenn ein neuer Teil- 
nehmer eingelesen wird, bis maximal zum Wert 15. Es kann somit 


N(I,1) N(I,2) N(I,3) 


programmiert werden, wobei der aktuelle Wert der Variable I 
über eine FOR NEXT-Schleife bestimmt wird. 


Ein vorzeitiger Eingabeschluß soll ermöglicht werden, indem 
lediglich die ENTER-Taste bei der ersten Abfrage eines Teil- 
nehmers gedrückt wird. Das kann mit der Anweisung 


IF N(I,I) = "" GOTO <Zeilennumer> 


abgefragt werden, d.h. ist die Eingabe ein Leerstring, so wird 
aus der Eingabe-Schleife zur Ausgabe gesprungen. 


Die Teilnehmernummer und die Nummer des gerade angesprochenen 
Vektorelements sollen in der Dateneingabephase als Hinweise 
ausgegeben werden, damit die Zahl der schon eingegebenen Teil- 
nehmer ablesbar wird. 


Die Teilnehmer sollen in dem Programm ohne alphabethische Sor- 
tierung entsprechend der Reihenfolge der Eingabe, mit PRINT- 


Anweisungen ausgegeben werden. 


Name und Vorname sollen mit einem Komma getrennt und vor der 
Telefonnummer das Kürzel "Tel.:" ausgegeben werden. 
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Das Programm: "Telefonnummernverzeichnis" 


Hiermit sind die Vorüberlegungen zum Programmaufbau abgeschlos- 
sen. Sie sollten nun zuerst das Programmlisting auf die bespro- 
chenen Programmanweisungen hin prüfen. Achten Sie dabei wieder 
auf die Kommentarzeilen. Sie erhalten damit den notwendigen Über- 
blick über die Programmblöcke. 


Programmlisting 


10 RR KK 


20 '’% Zeichenketten in Tabellen x 
30 RR RR RK KK KK ak ak 
40 ’"-——- Veberschrift 

so MODE 1 


60 LOCATE 35,2 
70 PRINT"Zeichenketten in Tabellen 
80 LOCATE 1,4 


90 ’-———- Variablendefinition 
100 DEFSTR N 
110 ’-- Dimensionierung 


120 DIM N (15,59 

130 ’-- Eingabeschleife 

140 FOR I=1 TO 15 

150 FRINT Iziz:LINE INPUT'"Nameı "N(I,1) 
160 IF N(I1,1)="" GOTO 210 

170 PRINT Ij2j ıLINE INPUT"Vornameı "ıN(I,2) 
180 PRINT is 3SJ: LINE INPUT"Telefonı ";N(I1,3) 
190 PRINT 

200 NEXT I 

210 PRINTIı PRINT 

220 ’-- Ausgabeschleife 

230 FOR I=1 TO 15 

240 IF N(I,i)="" GOTO 290 

250 FRINT N(1,1)", "j 

260 PRINT N(I1,2)"3Tel.ı"3z 

270 PRINT N(I,S) 

280 NEXT 

290 FPRINT:PRINT"Ende der Ausgabe 

300 END 
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Ergebnis einer Beispieleingabe: 
Zeichenketten in Tabellen 
Names Schneider 


Vorname: Herbert 
Telefon:ı 061/76541 


.- 
AN 


Name: Kraft 
Vorname: Doris 
Telefonı 06151/99287 


UND 


Nameı Heinze 
Vorname: Sylvia 
Telefonı 07531/101395 


> üÜüG DNN 
AND 


» 


Nameı 


Schneider, Herbert;sTel. 1061/76541 
Kraft, Doris; Tel. 06151/99287 
Heinze, SylviasTel. 07531/101395 


Ende der Ausgabe 
Ready 


In dem Programmbeispiel können Sie fünfzehn Eintragungen vorneh- 
men. Im praktischen Betrieb, d.h. bei größeren Datenmengen, müs- 
sen "externe Datenspeicher", z.B. Disketten oder Magnetband- 
kassetten, verwendet werden, damit Daten nach dem Ausschalten 
Ihres >> CPC 464 << dauerhaft abgespeichert werden können. In den 
Abschnitten "Projekt Text" und "Projekt Kartei" werden Sie jene 
Kenntnisse erwerben. 


Bemerkungen zum Thema "Bedienerführung" 
Eine Eingabe-Erleichterung auf dem Bildschirm ergibt sich durch 


einen geeignet formulierten Klartext, d.h. was gerade eingegeben 
werden soll, ist im Klartext anzugeben. 
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Der Bediener eines Programms muß wissen, ob nun gerade der Name, 
der Vorname oder die Telefonnummer einzugeben ist! 

Ein zusätzlicher Punkt ist hierbei die Gestaltung des Bildschirm- 
aufbaus, der sogenannten "Eingabemasken". 


Es ist eine der Stärken der modernen Mikrocomputer, über den 
Bildschirm mit dem Bediener (Benutzer) in einen Dialog treten zu 
können. Dadurch wird die Arbeit erleichtert, zum anderen werden 
auch Eingabe- und Bedienungsfehler vermieden. 

Wird geschickt programmiert, so wird der Bediener während des 
gesamten Programmablaufs geführt. Er erhält dann alle Informa- 
tionen, die er benötigt. 
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Themenübersicht 


Am Anfang des vorigen Kapitels wurde eine zweidimensionale Tabel- 
le vorgestellt. Sie soll nun für die weiteren Betrachtungen zum 
Thema Tabellenarbeit als Grundlage dienen. Ein nicht so 
umfangreiches BASIC-Programm, das diese Tabelle erstellt, führt 
Sie in das projektartige Programmieren ein. Aus diesem Programm 
werden sich Themenbereiche ergeben, die auf Ihren bereits 
erworbenen Kenntnissen aufbauen und diese erweitern. Die teils 
neu zu erarbeitenden,teils kurz zu wiederholenden Themen sind: 


* Kommentarzeilen * Programmblöcke 

* Programmablaufplan * Feld - Dimensionierung 

* Formatvariable * FOR NEXT-Schleifen 

* IF THEN - Anweisung * Dateneingaben 

* Datenbearbeitung * Formatierte Datenausgabe 
* PRINT TAB(I) Anweisung * LOCATE - Anweisung 


Anwendungsfall für die Tabellenarbeit 


Vorgestellt wird ein BASIC-Programm, das Tastatureingaben auswer- 
tet,in die Tabelle einfügt, für Berechnungen nutzt und tabel- 
larisch, wie abgebildet, ausgibt: 


Nr. I Artikel ı Einzelpreis [DM] |! Menge ı Betrag [DM] 

1. ı Butter I 2.49 ! 1.00 2.49 

2.  ı Zucker ! 1.49 ! 3.00 ı 4,47 

3. Brot ! 3.70 I 1.00 4 3.70 

4. ı Schokolade j 1.39 j 5.00 ı 6.95 

5. ı Marmelade I 1.98 ! 4.00 | 7.92 

6 ı Milch i 1.09 ! 2.00 2.18 

7. + Joghurt I 0.89 1 6.00 5.34 

Gesamt: 22.00 33.05 
Durchschnittsbetrag «see ccc.. 0 = 4.72 DM 
Durchschnittlicher Einzelpreis = 1.50 DM 
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Die zweidimensionale Tabelle gibt eine laufende Nummer, den 
Artikel, den eingegebenen Einzelpreis, die Menge und den Betrag 
wieder. Die Summe der Beträge, der Durchschnittsbetrag und zu- 
sätzlich der durchschnittliche Einzelpreis werden berechnet und 
ausgegeben. 


Es gelten hierbei die mathematischen Beziehungen: 
*% Der Betrag eines Einkaufs berechnet sich aus Menge mal 
Einzelpreis. 


* Der Gesamtbetrag ist die Summe der einzelnen Beträge. 


* Der Durchschnittsbetrag ergibt sich aus Gesamtbetrag, 
geteilt durch die Anzahl der Einkäufe. 


*% Der durchschnittliche Einzelpreis berechnet sich aus 
der Summe der Einzelpreise, geteilt durch die Gesant- 
menge der Artikel. 


Das dazu gehörende Programm wurde besonders umfangreich mit Kom- 
mentaren versehen, damit Sie in der ersten Übung die Programm- 
struktur, d.h. die Programmblöcke in ihrer auftretenden Reihen- 
folge herausarbeiten können. 


Sehen Sie sich hierzu das Listing auf der folgenden Seite an und 
notieren Sie sich die gefundenen Programmblöcke! 
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Programmlisting 


380 


’KERKERKEKKKEKKKKKIKKKKKKEKKKRKKK KK KEKKI KK KEKKKI EIKE KICK 
’$ Programm TABELLE x 
’KERKKKEKKEKKKKIKKEKKK EIKE EIKE KEN KK KKUKEKKKKKKKK KK IK IKK 


MODE 2 

BORDER 11 

LOCATE 20,2:PRINT "Erstellung einer Tabelle" 
LOCATE 1,4’Cursor positionieren 


’Dimensionierung von 4 % 100 Feldern 


nn mn nn mu m mn u m nn u a m an mn an mn m mn m an an mn m a a ma m ma m m a 


DIM MENGE (100) , EINZELPREIS (100) „BETRAG (100) , ARTIKEL$ (100) 


’Vorbesetzung der Formatvariablen 


US="HH. "RSS. "SE RRS=" RR. RR" 


’RRRKKRKKKEKKKKKKKKKKKKKKKKKKKK EIKE KK KK KK KK KKEKKK KK 
’Schleife zur Eingabe von Artikel, Einzelpreis und Menge 


FOR I=1 TO 100: ’Schleifenanfang 


PRINT USING U$; I; ’Ausgabe der laufenden Nr. 


LINE INPUT "Artikel : ";ARTIKEL$(I) ’Eingabe des Artikels 
IF ARTIKEL$(I)="" THEN 580’kein Artikel --> Eingabeende 
-ARTIKEL$(II=LEFT$(ARTIKEL$(I),15)’15 Zeichen uebertragen 


’Eingabe des Einzelpreises 
PRINT " "ı’Leerzeichen vor Einzelpreis setzen 
INPUT "Einzelpreis = ",EINZELPREIS(I)’Eingabe Einzelpreis 


’ 
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„Eingabe der Menge 

PRINT" "s’Leerzeichen vor Einzelmenge setzen 
INPUT "Menge = ",MENGE(I)’Eingabe der Einzelmenge 
IF MENGE (I)=0 GOTO 580’Menge Null --> Eingabeende 


’ 


DRFBEHRONGEN 


BETRAG (I) = MENGE (I) XEINZELFREIS(T) ’Mengenpreis 
SUMBETRAG=SUMBETRAG+BETRAG (I) ’ Zwischen- Endsumme 
SUMMENGE=SUMMENGE+MENGE (I) ’ Gesamtmenge 


NEXT I’Schleifenende 


’KERKKKKKKKKKKKKKUKKKKK EEK KKE KK KK KK KK KEKKEKKKCK X 
’Aufbereiten der Ausgabe 


nn mn an an m un m ns mn mern an ann m ann mn ann a au m am a am am m an tn An a m nn m a m a an ann en mn m in man. m an man am ann me a ma mann mm man man m 


CLS:LOCATE 1,2’Bildschirm loeschen und Cursor positionieren 
N=I-1’Ermitteln der Anzahl der Eingaben 


’Berechnungen der Durchschnitte 
DURCHSCHNITT = SUMBETRAG/N’Durchschnittsbetrag 
DFRE1S=SUMBETRAG/SUMMENGE’ Durchschnittspreis 


’Veberschriftszeile 

PRINT #8," Nr. ı"TAB(1Z) "Artikel"; 

PRINT #8, TAB(27)"ı Einzelpreis [DM] |"; 

PRINT #8, TAB(52) "Menge t"TAB(61)"Betrag [DMJ" 
PRINT #8, STRING$ (72, "-”)’Tabellenlinie 


> 


’ 


’Zweite Schleife zur Ausgabe der Tabellenelemente 


FOR I=1 TO N’Schleifenanfang 


IF MENGE (I)=0 THEN 900’Abfrage des Tabellenendes 


135 


14. 


Programmbeispiel zur Tabellenarbeit 


’Ausgabe der Tabellenelemente 

PRINT #8," "USING Us; I; 

PRINT #8, TAB(9)"! "ARTIKEL$(I); 

PRINT #8, TAB(27)"i " USING RS5EINZELPREIS(I); 
PRINT #8, TAB(47) "1" USING R$;MENGE (TI); 

PRINT #8, TAB(59) "! "USING R$; BETRAG (I) 


NEXT I’Schleifenende 


PRINT #8, TAB(47) STRING$ (26, "-")’Summenstrich 

PRINT #8, TAB(37) "Gesamt: "USING RR$; SUMMENGE ; SUMBETRAG 
PRINT #8,CHR$(10)’zwei Leerzeilen 

PRINT #8," Durchschnittsbetrag ......... ="3 

PRINT #8, TAB(35) USING RR$; DURCHSCHNITT; 

PRINT #8," DM"CHR$(10) ’Einheit und eine Leerzeile ausgeben 
PRINT #8," Durchschnittlicher Einzelpreis = "; 


‚PRINT #8, TAB(35) USING RR$;DPREIS; 


PRINT #8," DM" 
END 


1000 ’KKRKKKKKKKRER Programmende KEIEKKKKKERKKKRKKKKKKERKEKER KK 


Reihenfolge der Programmblöcke 


* Bildschirmeinstellung 
* Dimensionierung von 4 mal 100 Feldern 
* Vorbesetzung der Formatvariablen 


*% Schleife zur Eingabe von Artikel, Einzelpreis 
und Menge 


* Aufbereiten der Ausgabe 
* Schleife zur Ausgabe der Tabellenelemente 


* Ausgabe der Abschlußzeilen 
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Flußdiagramm 


Die Struktur des Programmes ist ihnen nun deutlicher, so daß Sie 
sich mit dem Flußdiagramm befassen können. 


Bildschirmeinstellung 


Dimensionierung 
Formatvariablen 
vorbesetzen 


laufende Nummer 








ausgeben 
Ausgabe 
Abschlußzeilen 
Dateneingabe 
Tabellen 







Eingabe-Ende Tabellenelemente 


ausgeben 


Ausgabe aufbereiten: 


Berechnung Überschrift 


der Durchschnitte 


- ausgeben 
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Nun soll mit Ihnen das Programm und gleichzeitig die oben genann- 
ten Themenbereiche schrittweise erarbeitet werden. 


Feld-Dimensionierung 


In dem Programmbeispiel werden vier Variablen bzw. "Felder" di- 
mensioniert und für jede der Variablen 101 "Elemente" oder "Feld- 
elemente" reserviert. Da die Dimensionierung mit Null beginnt und 
bei 100 endet, ergeben sich 101 Feldelemente. 


Die Anzahl von 101 Feldelementen ist nur willkürlich gewählt 
worden. Selbstverständlich hätte man auch eine größere Anzahl von 
Feldvariablen vorsehen können. Letztlich bestimmt die Problem- 
stellung selbst den Umfang der zu reservierenden Variablen in 
einem Programm. Sie könnten bei Bedarf andere Größen angeben, so 
daß eine größere Datenmenge als 100 Daten eingegeben werden 
könnte. Hierbei ist die Kapazität des Arbeitsspeichers des 
>> CPC 464 << zu berücksichtigen. 


Die FRE(I)-Anweisung 


Hierzu eine Übung, die Sie am >> CPC 464 << selbst nachvollziehen 
sollen. Sie gehen dabei folgendermaßen vor: 


Lassen Sie in der Dimensionierungsanweisung 

DIM M(10), E(10), B(10) 
die Anzahl der Felder von Mal zu Mal wachsen. Sie schreiben also 
zuerst 10, dann 100, dann 2500. Danach fragen Sie jedesmal den 
noch frei verfügbaren Platz für Programmzeilen im Arbeitsspeicher 
ab. Die freie Kapazität ermitteln Sie durch die Anweisung: 


PRINT FRE(I) 


und erhalten die jeweils noch freie Anzahl von Bytes auf dem 
Bildschirm angezeigt. 
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Nun das Übungsbeispiel: 


10 DIM M(10),E(10),B(10) 

20 FRINT "Es sind noch "FRE(I) "Bytes frei!" 
RUN 

Es sind noch 43265 Bytes frei! 

Ready 


10 DIM M(100),E(100),B(100) 

20 PRINT "Es sind noch "FRE(I) "Bytes frei!" 
RUN 

Es sind noch 41915 Bytes frei! 

Ready 


10 DIM M (2500) ,E (2500) ,B (2500) 

20 PRINT "Es sind noch "FRE(I) "Bytes frei!" 
RUN 

Es sind noch 5912 Bytes frei! 

Ready 


Sie erkennen aus dem Ergebnis, daß die Dimensionierung von Varia- 
blen immer Arbeitsspeicherplatz benötigt! 


Die Folgerung für Ihre weitere Programierarbeit ist, daß Sie 
bereits bei der Planung von Programmlösungen sorgfältig überden- 
ken sollten, in welchem Umfang Reservierungen von Feldern vorge- 


nommen werden müssen, da der Computer zwar über einen sehr 
großen, aber trotzdem begrenzten Arbeitsspeicherplatz verfügt. 


Hinweis: 


Dimensionierung zu großer Felder belegt unnötig Speicherplatz! 
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Vorbesetzung der Formatvariablen 


Nachstehend wird von "Steuerzeichen'" gesprochen, : damit sind die 
Doppelkreuze "## ## ## ##'" gemeint. In der Programmzeile 180 des 
Programms "TABELLE" werden die Zeichenkettenvariablen U$, R$ und 
RR$ mit Steuerzeichen für die Druckaufbereitung besetzt, die für 
die PRINT-Anweisungen in den Zeilen 260, 790, 810, 820, 830, 910; 
940 und 970 benötigt werden. Dies geschieht in Verbindung mit dem 
geschützten BASIC-Wort USING. 


PRINT USING bedeutet "Drucke unter Verwendung von ...". Die 
Formatvariable, die die entsprechenden Steuerzeichen für die 
Druckaufbereitung enthält, muß nachgestellt angegeben werden. 
Anschließend ist (sind) die Variable(n) aufzuführen, die 
ausgegeben werden soll(en). 


Beispiel: PRINT USING U$;I 


Eingabe-Schleife 
Schleife zur Eingabe Artikel, Einzelpreis und Menge 


Überdenken Sie bitte nun, wie oft Sie maximal einen Datensatz 
eingeben können. Betrachten Sie hierzu die Laufanweisung in der 
Zeile 2401! 


240 FOR I=1 TO 100: ’Schleifenanfang 


Sie erkennen, daß die Laufvariable I den Wert von ] bis 100 
annehmen kann, d.h. Sie können maximal 100 mal die Größen Arti- 
kel, Einzelpreis und Menge eingeben. 


Die entsprechenden Eingabe-Anweisungen stehen in den Zeilen 
300,370 und 420, wie auch den Kommentaren in den genannten Zeilen 
zu entnehmen ist. Die Zeile 300 unterscheidet sich von den 
anderen beiden dadurch, daß mit der Anweisung LINE INPUT eine 
Zeichenkette eingelesen wird. 


300 LINE INPUT "Artikel ı ";ARTIKEL$(I)’Eingabe des Artikels 
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An dieser Stelle eine wichtige Anmerkung: Betrachten Sie die 
Programmzeile 370: 


370 INPUT "Einzelpreis = "EINZELPREIS(I) "Eingabe Einzelpreis 


Zeile 370 enthält nicht etwa nur eine, sondern zwei Anweisungen: 


l. Eine Eingabe-Anweisung (INPUT) 
2. Eine Kommentar-Anweisung 


Stehen mehrere Anweisungen in einer Zeile, so ist es eine 
Anweisungskette oder auch eine Mehrfachanweisung. 
Regeln zu Anweisungsketten 


* Die Anweisungen in einer Anweisungskette sind durch 
Doppelpunkte voneinander zu trennen. 


* Ist die letzte Anweisung in einer Zeile eine 
Kommentaranweisung, so kann der davorstehende 
Doppelpunkt entfallen. 

* Nach einer Kommentaranweisung darf in der Zeile jedoch 
keine weitere Anweisung folgen! BASIC behandelt sie 
sonst als zum Kommentar dazugehörig! 


Prüfen Sie nun anhand des Programmlistings, auf welche Weise Sie 
die Dateneingabe bereits früher beenden können. 


Damit der Benutzer des Programms selbst bestimmen kann, wann die 
Dateneingabe beendet wird, wurde eine IF THEN-Anweisung in den 


Zeilen 310 und 430 programmiert. 


Es kann aus der Eingabeschleife herausgesprungen werden, wenn 
entweder die Abfrage des Artikels mit ENTER beantwortet wird 


oder 


die Abfrage der Menge mit Eingabe von Null quittiert wird. 
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Die Schreibweisen der IF THEN GOTO-Anweisung 


Beachten Sie, daß in der Zeile 310 die Anweisung GOTO und in 
Zeile 430 das THEN fehlen. Hier ist nur ein GOTO zu finden. 
Es hat aber seine Richtigkeit! 


Der >> CPC 464 << BASIC-Interpreter erlaubt folgende BASIC- 
Schreibweisen: 


IF ... THEN GOTO ... 
IF ... GOTO ... 
IF ... THEN ... 


Auf THEN und GOTO muß die Angabe eines durch eine Anwei- 
sungsnummer bezeichneten Sprungziels folgen. 


Regeln zur IF THEN GOTO-Anweisung 


* Trifft eine Abfrage zu, dann wird im Programm zur 
angegebenen Zeile gesprungen. 


* Folgt auf die IF-Abfrage kein Sprungziel bzw. keine 
Zeilennummer, sondern eine sonstige Anweisung, dann 
muß THEN stehen. 


Betrachten Sie nun die Anweisungen !n Zeile 480, 490 und 500! 


In der Anweisung 480 wird der Betrag(I) je Zeile aus den 
Elementen MENGE(I) mal EINZELPREI‘ (I) ermittelt. In der Zeile 490 
wird der BETRAG(I), also der Betrag jeder Zeile, dem Summenfeld 
SUMBETRAG hinzuaddiert und so der Gesamtbetrag errechnet. In 
Zeile 500 wird die MENGE(I) der Sesamtmenge SUMMENGE hinzuaddiert 
und auf diese Weise die Gesamtmenge der Artikel berechnet. 


Mit der nächsten ausführbaren Anweisung gelangen Sie jetzt an das 
Schleifenende. Wenn die Laufvariable I den Endwert 100 noch nicht 
erreicht hat, kehrt das Programm an den Schleifenanfang zurück 
und erhöht I um |. 

Es gilt daher nach jedem Schleifendurchlauf: I=I+l 
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Wird festgestellt, daß I bereits den Wert 10Ol erreicht hat, also 
größer als der zulässige Endwert 100 ist, so wird sofort zu 
derjenigen Anweisung verzweigt, die nach der NEXT-Anweisung 
steht. 


Das ist die Anweisung Nr. 530. Bei den Zeilennummern 530 bis 570 
handelt es sich aber nur um Kommentarzeilen, die vom Interpreter 
übergangen werden. Die nächste ausführbare Anweisung ist somit in 
Zeile 580. 


Aufbereiten der Ausgabe 

Die CLS-Anweisung in Zeile 580 löscht den Bildschirm und es wird 

mit der LOCATE-Anweisung der Textcursor an den Anfang der zweiten 

Bildschirmzeile positioniert. 

Die Anweisung 590 veringert den Wert von I nach Eingabeende um |. 
590 N=I-i’Ermitteln der Anzahl der Eingaben 

Analysieren Sie anhand des Programmablaufs, welchen Wert die 

Variable I bei einer bestimmten Anzahl von Eingaben annimt. 

Benutzen Sie bitte bei der Bestimmung des Variablenwertes den 

nachstehenden Falll 


Fallbeispiel: 


Sie haben zwei vollständige, abgeschlossene Eingaben vorgenommen. 
Steht nun in der Variablen I der Wert "2", "3" oder "4"? 


Prüfen Sie dieses bitte "praktisch" nach, indem Sie zwei voll- 
ständige Eingaben jeweils mit dem Artikel, dem Einzelpreis und 
der Menge vornehmen. 


Die nächste Abfrage des Artikels beantworten Sie mit der ESC- 
Taste, d.h. Sie brechen das Programm ab. 
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Nun fragen Sie im Direktmodus die Variable I mit nachstehender 
Anweisung ab: 


21 
Sie erhalten als Ergebnis den Wert "3", 


Hilfen für die Analyse: 


*% Der Wert von I entspricht dem Wert , der erhalten 
wird, wenn bei Abfrage des dritten Artikels nur ENTER 
gedrückt würde. 


* Die Bedingung in der IF-Anweisung in der Zeile 310 ist 
dann erfüllt und die Schleife wird verlassen, bevor 
die Laufvariable I den Endwert 100 erreicht hat. 


* Die Laufvariable I wurde bereits um eins erhöht, da es 
sich um den dritten Schleifendurchlauf handelt. 


Die Schlußfolgerung ist, daß I um eins größer ist als die Anzahl 
der vollständigen Eingaben und daher N=I-| gesetzt werden muß. 


Schöpfen Sie die maximale Datenmenge von 100 Eingaben aus, so 
wird die Schleife vollständig durchlaufen und die Laufvariable I 
ist um eins größer als der Endwert der FOR NEXT-Schleife. 


Daher muß auch in diesem Fall "N = I - |" gesetzt werden. 


Berechnung der Durchschnitte 


Die Berechnungen der Durchschnitte dienen nur statistischen 
Zwecken, die Sie z.B. für Ihren geschäftlichen Bedarf nutzen 
können. 

Sie ermitteln mit dem Programmblock den Durchschnittsbetrag und 
den Durchschnittspreis Ihrer Ein- und Verkäufe. Die Berechnung 
erfolgt in den Zeilen 


&20 DURCHSCHNITT = SUMBETRAG/N’ Durchschnittsbetrag 
630 DPREIS=SUMBETRAG/SUMMENGE’ Durchschnittspreis 
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In der Variablen SUMBETRAG befindet sich gemäß Anweisung Nr. 490 


490 SUMBETRAG=SUMBETRAG+BETRAG (I) ’ Zwischen- Endsumme 
die Gesamtsumme der eingegebenen Beträge. 


In der Variablen SUMMENGE befindet sich aufgrund der Anweisung 
Nr. 500 


500 SUMMENGE=SUMMENGE+MENGE (I) ’ Gesamtmenge 


die Gesamtmenge der gekauften bzw. verkauften Artikel. 


Ausgabe der Überschriftszeile 


Anschließend wird mit den Anweisungen 660 bis 690 die Über- 
schriftszeile und die Tabellenlinie auf dem Drucker ausgegeben. 
Wünschen Sie die Ausgabe der Tabelle auf dem Monitor, so ersetzen 
Sie bei allen PRINT-Anweisungen die Datenstrom-Ziffer "8" durch 
die Ziffer "0", oder Sie lassen ersatzlos den gesamten Ausdruck 
"#8," entfallen. 


Zweite Schleife zur Ausgabe der Tabellenelemente 


In Zeile 740 befindet sich die Laufanweisung mit der Laufvaria- 
blen I, die einen Anfangswert von | und einen Endwert von N 
annehmen kann. In Zeile 760 findet sich eine IF-Anweisung: 


760 IF MENGE(I)=0 THEN 900’Abfrage des Tabellenendes 


WENN das gerade bearbeitete Element MENGE(I) gleich Null ist, 
DANN soll die Schleife verlassen werden. Das bedeutet einen 
unbedingten Sprung zu der Anweisung 900, die nach der NEXT- 
Anweisung steht. Ist der Inhalt von MENGE(I) ungleich Null, so 
wird auf dem Drucker eine formatierte Zeile mit dem Inhalt ausge- 
geben, der in den Überschriftszeilen 660 bis 680 beschrieben 
wird. 
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Es wird auf der laufenden Tabellenposition 


l. Laufende Nummer 
2. Artikel 

3. Einzelpreis 

4. Menge 

5. Betrag 


mit der PRINT USING-Anweisung geschrieben. 


Ein Rücksprung zum Schleifenanfang erfolgt in der Zeile 850, wenn 
die Tabelle noch nicht vollständig ausgegeben ist. 


Ausgabe der Abschlußzeilen 


Betrachten Sie bitte die Anweisungen in den Zeilen von 870 bis 
980 und notieren Sie, was die einzelnen Anweisungen bewirken. Für 
Ihre Korrektur dienen die untenstehenden Angaben. 


Hilfen für die Programmanalyse: 
* Die Anweisungen 870 bis 890 sind Kommentarzeilen. 


* Die Anweisung 900 kennzeichnet das Additionsende, 
indem mit STRING$ 26 mal das Zeichen "-" ab Position 
47 ausgegeben wird. 


* Die Anweisung 910 gibt die Gesamtmenge und die Ge- 
samtsumme aus. 


* In Zeile 920 werden zwei Leerzeilen durch die Anwei- 
sung: PRINT #8,CHR$(10) erzeugt. Die Anweisung bewirkt 
zwei Zeilenvorschübe, wobei der erste durch das Steu- 
erzeichen CHR$(10) und der zweite durch den BASIC- 
Interpreter des >> CPC 464 << ausgegeben wird, da nach 
CHR$(10) kein Semikolon gesetzt wurde. 


* Die Anweisungen 930 und 960 geben die Worte "Durch- 


schnittsbetrag"' und "Durchschnittlicher Einzelpreis" 
aus. 
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* Die Durchschnittswerte werden in den Anweisungen 940 
und 970 ausgegeben. 


*% Die Anweisungen 950 und 980 setzen die Einheit "DM". 


Das geschützte BASIC-Wort END in Zeile 990 beendet das Programm 
und bewirkt eine Rückkehr in den Kommandomodus. Die END-Anweisung 
darf entfallen, wenn sie die letzte ausführbare Programmanweisung 
ist. 


Sie haben damit das Programmende erreicht und. zudem wichtige 
Kenntnisse erworben, die es Ihnen nun erlauben werden, das Pro- 
gramm "TABELLE" auf Ihre ganz speziellen Bedürfnisse anzupassen. 
Denkbar sind z.B. Änderungen an den Benutzerhinweisen, die das 
Programm ausgibt. Auch Erweiterungen lassen sich einbinden, so 
z.B. ein Programmblock "Speicherung", der die Daten auf dem Data- 
corder ablegt. 
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Einführung und Aufgabenstellung 


In Technik und Verwaltung ist eine der am häufigsten zu lösenden 
Aufgaben das Sortieren von umfangreichem Datenmaterial. Das Sor- 
tieren von Hand, z.B. das Sortieren von Karteikarten nach unter- 
schiedlichen Kriterien, ist dabei ein recht mühsames Geschäft! 
Hier erleichtert uns die elektronische Datenverarbeitung die 
Aufgabe außerordentlich. Die Arbeit von Stunden und Tagen läßt 
sich auf Minuten und Sekunden schrumpfen! 


Auch Sie werden mit solchen Programmen Zeit gewinnen für andere, 
kreativere Dinge! 


Wegen der außerordentlichen Bedeutung, die das Sortieren in der 
Datenverarbeitung hat, wurden die verschiedenartigsten Verfahren 
entwickelt, um möglichst schnell nach möglichst vielen Gesichts- 
punkten sortieren zu können. 


Aus der Fülle der vorhandenen Sortierverfahren kann hier natür- 
lich nur ein einfaches Sortierprogramm vorgestellt werden. Das 
Programmbeispiel vermittelt Ihnen Grundkenntnisse über die Sor- 
tierung von Daten, die Sie befähigen sollen, Sortierprogramme zu 
analysieren und zu beurteilen. 


Zunächst wird in diesem Kapitel die Aufgabenstellung besprochen, 
um Ihnen vorab einen Einblick in das Thema "Sortieren" zu bieten 
und den notwendigen Programmaufbau zu erarbeiten. 


Vorgaben zum Sortierprogramm: 


* Maximal 100 alphanumerische Variable sollen in auf- 
steigender Reihenfolge sortiert werden. 


* Die Daten sollen über die Tastatur eingegeben und dem 
Sortierprogramm übergeben werden. 


* Sortiert werden sollen Nachnamen ohne weitere Zusätze. 
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Vorüberlegungen zum Programmaufbau 


l. Die anfallenden Datenelemente können mit dem Oberbe- 
griff "Nachname" zusammengefaßt werden. 


2. Die Datenelemente können in eine eindimensionale Ta- 
belle geschrieben werden. 


3. Die eindimensionale Tabelle muß mindestens 100 Ele- 
mente aufnehmen können. 


4. Die Daten sind vom Typ Zeichenkette, d.h. es sind 
"alphanumerische" Variable zu benutzen. 


5. Der Name der zu dimensionierenden Tabelle muß am 
Schluß ein Dollarzeichen als Kennung erhalten. 


6. Es soll die dimensionierte Variable A$(I) benutzt 
werden. 
Dimensionierung 


Aufgrund dieser Überlegungen ist eine eindimensionale Tabelle zu 
programmieren und mit der DIM-Anweisung: 


DIM A$(99) 
Platz für 100 Elemente zu schaffen. 


Um in den Vorüberlegungen fortzufahren, soll der eigentliche 
Ablauf des Sortierprogramms dargestellt werden. 


Die zu sortierenden Daten bzw. Namen sollen sein: 


A$(1) = Merlemann 
A$(2) = Seuring 
A$(3) = Berghoff 
A$(4) = Zergel 
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Das Ergebnis des Sortiervorgangs soll nachstehende Liste ergeben: 
A$(3) = Berghoff 
A$(1) = Merlemann 
A$(2) = Seuring 
A$(4) = Zergel 
Vergleichen Sie die beiden Listen. Sie stellen fest, daß ein 
"Platz-Tausch" vorgenommen wurde. Die Namen haben in der Tabelle 
durch Vertauschen ihre Plätze gewechselt. 
Sind die Daten sortiert, so sollen sie auf dem Bildschirm ausge- 
geben werden. 
Der Programmablauf soll. sich dann wiederholen: 
l. Eingabe über die Tastatur 


2. Verarbeitung der Daten mit dem Ziel der Sortierung 


3. Ausgabe der sortierten Daten 


Übersicht der Programmblöcke 
Sie erkennen, daß drei Programmblöcke für den gewünschten Pro- 
grammablauf notwendig sind. Im ersten und letzten Programmblock 
finden Sie bekannten Lehrstoff, den Sie schon an ähnlichen Teil- 
problemstellungen erarbeitet haben. 
Erster Programmblock: Daten-Eingabe 
Die Eingabe über die Tastatur wird beim Programmablauf 
über eine "LINE-INPUT"-Anweisung innerhalb einer FOR 
NEXT-Schleife erreicht. 


Zweiter Programmblock: Sortierung 


Der mittlere Block ist in seiner Programmierung für Sie 
neu. 
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Dritter Programmblock: Daten-Ausgabe. 
Die Ausgabe der sortierten Daten geschieht mit einer 
PRINT-Anweisung, und zwar ebenfalls innerhalb einer FOR 
NEXT-Schleife. 

Programmblock Sortieren 


Vorüberlegungen zum zweiten Programmblock 


l. Kernstück des Blocks muß ein Programmteil sein, in dem die 
Variablen in einer gewünschten Folge "ihre Plätze tauschen". 


2. Es muß dabei geprüft werden, wieviele Variablen zu sortieren 
sind und in welcher Weise dies zu geschehen hat. 


3. Bei der gegebenen Aufgabenstellung soll in aufsteigender Folge 
sortiert werden, d.h. in alphabethischer Folge. 


4. Sortieren setzt eine vorgegebene Rang-Ordnung und somit eine 
Sortierfolge voraus. 


5. Die zu sortierenden Daten müssen mit der vorgegebenen Ordnung 
verglichen werden. 
Sortieren heißt also mit anderen Worten: 
"Ordnen gegebener Elemente durch Vergleichen mit einer 
vorgegebenen Rangfolge". 
Hinweis: 
Eine andere Art der Sortierung, die überwiegend beim 
Sortieren von Zahlen vorkommt, ist die Sortierung in 


absteigender Folge, bei der die höchste Zahl zuerst und 
die kleinste Zahl zuletzt steht. 
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ASCII-Wert 


32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
Si 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 


Zeichen 


I > u u Ze ze 
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OZZTFTRUHIANnMOINnHDNn-J“w 


ASCII-Wert 


152 


119 
120 
121 
122 
123 
124 
125 


126 


Zeichen 
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z<eErv I0oDD I 3 Pr zT + Totpan Om «I 


x 
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Erkenntnisse für die Programmierung des Sortiervorgangs 


In dem zweiten Programmblock wird es also zumindest eine Abfrage 
geben müssen, die einen Vergleich enthält. Auf der vorigen Seite 
ist der in aufsteigender Reihen- bzw. Rangfolge geordnete, stan- 
dardisierte Zeichensatz in einer Tabelle wiedergegeben, wie er in 
dem Mikrocomputer >> CPC 464 << anzutreffen ist. Der Tabelle 
können Sie die "Wertigkeit" eines Zeichens entnehmen. So ist z.B. 
das Zeichen mit der laufenden Nummer 49, also die Ziffer |, in 
der Sortierfolge niedriger als das Zeichen mit der laufenden 
Nummer 57, das der Ziffer 9 entspricht. Eine weitere Vorüberle- 
gung ist dann dem Platz-Tausch zu widmen. 


Vorüberlegungen zum Platztausch 


l. Durch Übertragen wird der Inhalt der empfangenden Speicher- 
stelle überschrieben, der Inhalt der sendenden Speicherstelle 
dagegen bleibt erhalten. 


2. Die Variable B, die mit der Variablen A zu tauschen ist, muß 
"gerettet" werden. 


3. Damit die Variable B nicht überschrieben wird, muß sie vor- 
übergehend an einer anderen Stelle untergebracht werden, bis 
sie den endgültigen Platz einnehmen kann, der ihr nach der 
Sortierordnung zusteht. 

Den Vorgang nennt man Zwischenspeichern! 


4. Ist die Variable B zwischengespeichert, kann die Variable A 
auf dem bisherigen Platz der Variablen B durch Übertragen 
untergebracht werden. Durch das Übertragen wird also der bis- 
herige Inhalt des empfangenden Speicherplatzes B ersetzt, was 
jetzt ja bedenkenlos geschehen kann. 


5. Die "gerettete'" Variable B wird auf den vorhergehenden Platz 
der inzwischen umgesetzten Variablen A übertragen. 
Auch bei dieser Übertragung wird der bisherige Inhalt der 
Speicherstelle A überschrieben und durch den Inhalt der Varia- 
blen B ersetzt. 
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HA <-------- <B Zwischenspeichern 
B <--- <A Platztausch |. Teil 
A <-------- < HA Platztausch 2. Teil 


6. Das Überschreiben kann jetzt ohne Bedenken geschehen, da die 
Variable A bereits auf ihrem neuen Platz untergebracht und 
somit ausgetauscht worden ist. 


Es bleibt nur noch abzuklären, auf welche Weise die Variable B 
zwischengespeichert wird. Es wird ein Speicherplatz als Hilfs- 
speicher für die Variable A mit dem Namen HA benannt. 


Der Platztausch läuft dann folgendermaßen ab: 


DV. 
oOOO0 
u 


Be 


l. In Zeile 10 wird die Variable B zwischengespeichert. 


2. In Zeile 20 wird der Inhalt der Variablen A auf den 
Platz der Variablen B übertragen. 


3. In Zeile 30 wird der Inhalt der auf dem Platz der 
Hilfsvariablen HA zwischengespeicherten Variablen B 
auf den Platz von A übertragen. 
Für den Platztausch werden also insgesamt drei Anweisungen benö- 
tigt. 
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Das Austauschen von Tabellenelementen ist, wie Sie inzwischen 
gesehen haben, ein wesentliches Element des Sortierens. Die 
Frage, ob es nicht auch ein Sortieren ohne jegliches Austauschen 
gibt, kann man mit "Nein" beantworten. 


Ob allerdings die Tabellenelemente selbst ausgetauscht werden 
müssen, oder ob es andere Wege gibt, mit dem Sortieren zum Erfolg 
zu kommen, läßt sich nicht einfach mit "Nein" beantworten. 

In diesem Buch kann das Thema jedoch nicht untersucht werden. Es 
bleibt einem weiteren Buch zum >> CPC 464 << aus dem Heim-Verlag 
vorbehalten. Für diejenigen Leser, die sich eingehender mit dem 
Gebiet des Sortierens beschäftigen wollen, sei nur das Stichwort 
"Stellvertretersortierung" genannt. 


Stellvertretersortierung 


Begriffsklärung: 


Bei der Stellvertretersortierung werden nicht die In- 
halte der Tabellenelemente selbst ausgetauscht, sondern 
die Platznummern, auf denen die Elemente innerhalb der 
Tabelle stehen. Anhand einer Liste der in Abhängigkeit 
vom Tabelleninhalt sortierten Platznummern werden dann 
die Elemente ausgegeben und erscheinen somit als sor- 
tiert. 


Ein Programmbeispiel für das Sortieren 
Nach den Vorüberlegungen sollten Sie sich jetzt dem BASIC-Pro- 


gramm zuwenden, das das Sortierproblem lösen soll. 


Suchen Sie bitte zuerst die Programmzeilen, die Kommentare ent- 
halten. Die Zeilen sind nur für Sie zur Erläuterung bestimmt und 
haben nichts mit dem Programmablauf selbst zu tun! 
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Programmlisting: 


10 ’KEREREKKKEKEKKKIKEREKKKKKR ERIK IK NR 
20 ’%& SORTIEREN VON DATENSAETZEN x 
SO ’ERRREKKKKKKRKEKKKKKEREIKKRR KICKER X 


40°’ 

50 ’--- Dimensionierung -------------- 
60 DIM A$(99) 

70 °’ 

80 ’--- Bildschirmaufbau ------------- 
90 MODE 1 


100 PAPER Os INK 0,0 

110 PEN 1:INK 1,26 

120 CLS 

130 PRINT " Sortieren von Datensaetzen" 

140 PRINT:PRINT " -> Eingabe von Zeichenketten <-" 

150 PRINT :PRINT "Fuer Eingabeende bitte ’%’ eingeben." 
160 WINDOW #1,1,40,10,25 

170 WINDOW SWAP 0,1 


190 ’-- Dateneingabe ----------------- 
200 FOR N=0 TO 99 

210 LINE INPUT "neue Zeichenkette: ",A$(N) 
220 A$ (N) =UPPER$ (A$(N)) 

230 IF A$(N)="$" THEN 270 

240 NEXT N 


260 ’-- Sortieren der Tabellenelemente 
270 17=0 

280 FOR I=0 TO N-2 

290 IF A$(I)<=A$(I+1) THEN 320 

300 HA$=A$ (I) sA$(I)=A$(I+1) :sA$CI+1)=HAS 
310 Z=1 

320 NEXT I 

330 IF Z=1 THEN 270 
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360 ’-- Ausgabe der sortierten Elemente 

370 LOCATE #1,5,3:PRINT #1, "Aus 

380 LOCATE #1,1,5 

390 PRINT #1," Weitere Ausgabe --> ENTER druecken " 
400 FOR I=0 TO N-1 

410 PRINT USING "#4"; 1; 

420 PRINT" : "A$(T) 

430 IF I MOD 10 = 0 AND I THEN LINE INPUT ENTER$ 
440 NEXT I 

450 ’-- Ausgabe beenden --------------- 

460 PRINT 

470 PRINT "Laenge der Liste: "N" Elemente 

480 PRINT’ 

490 LOCATE #1,1,5:PRINT #1, STRING$(49," ") 

500 END 


Es sind die Programmzeilen: 


50 Dimensionierung 

80 ’Bildschirmaufbau 

190 ’Dateneingabe 

260 Sortieren der Tabellen-Elemente 
360 Ausgabe der sortierten Elemente 
450 ”Ausgabe beenden 


Sie sehen, wie leicht es ist, Programmblöcke zu erkennen, wenn 
sie durch Kommentarzeilen entsprechend gekennzeichnet sind. Auch 
in Ihren eigenen Programmen sollten Sie dieses berücksichtigen, 
um längere BASIC-Programme lesbar zu gestalten. 


Programmblöcke 
Die Vorüberlegungen zu dem Sortierprogramm ergaben, daß zum Sor- 


tieren von 100 Nachnamen neben einer Dimensionierung eines Feldes 
mindestens drei Programmblöcke zu programmieren sind. 


Programmblock ---> Dateneingabe 
Programmblock ---> Sortierung 
Programmblock ---> Ausgabe der sortierten Daten 
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Die weiteren Überlegungen zur "Sortierung von Daten" führten zu 
der Erkenntnis, daß hier für den Programmablauf bestimmte Anwei- 
sungen notwendig sind. 


Anweisungen im Programmblock: "Sortierung" 
Notwendige Anweisungen: 


* Anzahl der zu sortierenden Daten feststellen 
* ASCII-Werte vergleichen 
*% Daten vertauschen über Zwischenspeichern in HA$ 


Ihre Aufgabe ist es nun, diese Anweisungen in dem Programmlisting 
zu finden und deren Wirkung zu bestimmen. 


Hilfen für Ihre Analyse: 


l. Anweisung: 200 FOR N=0 TO 99 
240 NEXT N 


* Die Anzahl der zu sortierenden Daten wird durch die erste 
FOR NEXT-Schleife bestimmt und dem Programmblock "Sortieren 
der Tabellenelemente" mit der Variablen N übergeben. 


2. Anweisung: 290 IF A$(I)<=A$(I+1) THEN 320 


* In der Anweisung werden zwei Feldelemente bzw. zwei Zei- 
chenketten verglichen und daraus eine Programmverzweigung 
abgeleitet. Für den Vergleich zweier Zeichenketten nutzt der 
BASIC-Interpreter den ASCII-Wert, indem zuerst die beiden 
Anfangsbuchstaben beider Zeichenketten anhand ihres ASCII- 
Werts verglichen werden. Sind beide Werte gleich, d.h. es 
sind beide Anfangsbuchstaben gleich, so werden die zweiten 
Buchstaben der Zeichenketten miteinander verglichen. Sind 
sie wieder identisch, so wiederholt sich der Vorgang. 
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Beachten Sie die folgenden Beispiele für Zeichenkettenver- 





gleiche. 

Wort ASCII-Werte der Buchstaben 
Hase 72 97 115 101 

Hasen 72 97 115 101 110 

Haus 72 97 117 115 

Garten 71 97 114 116 101 110 


Die Beziehung zwischen den drei Zeichenketten ist demnach: 
Garten < Hase < Hasen < Haus 
so daß sich auch diese endgültige, sortierte Reihenfolge für 


die Zeichenketten ergeben soll, d.h. sie sind so zu sortie- 
ren bzw. zu tauschen. 


3. Anweisung: 300 HAS=AS(T) EAST) =ASCI+L) SASCIHL) =HAS 


* Sie erinnern sich an die Vorüberlegungen, daß die Daten vor 
dem Vertauschen zwischengespeichert werden müssen, da sie 
sonst überschrieben werden. 


HA$ <-------- < A$(I) Zwischenspeichern 
AS(I) <-------- < AS(I+1) Platztausch |. Teil 
AS$S(I+1) <--------< HAS Platztausch 2. Teil 


Die Anweisungskette in Zeile 300 enthält genau jene Anwei- 
sungen. 


Ein Platztausch zum Zwecke des Sortierens findet dann statt, 


wenn der Inhalt des Feldelementes A$(I) größer als der 
Inhalt des Feldelementes A$(I+1) ist. 
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Allgemein gilt also: 


Sie 


Ist das gegebene Element größer als das unmittelbar 
folgende Element, so müssen beide ihre Plätze tauschen. 


haben jetzt die Wirkung der drei Anweisungen bestimt. 


Schauen Sie bitte nun auf die Anweisungen 270 und 310: 


Bei 


270 Z7=0 
310 Z=1 


Ihren Überlegungen sollten Sie insbesondere die Anweisung 290 


näher betrachten. 


Die 


Variable Z wirkt wie ein Schalter. 


Schalterstellung "0": 


Z bleibt auf Null gestellt, wenn der Inhalt sämtlicher Feld- 
elemente A$(I) kleiner oder gleich dem Inhalt der nachfolgen- 
den Feldelemente A$(I+l) ist, d.h. sämtliche Feldelemente 
sind fertig sortiert. 


Ist sortiert, so trifft die Bedingung in der Anweisung 290 
immer zu und es wird jedesmal in die Zeile 320 gesprungen, 
d.h. Z wird nicht auf | gestellt. In diesem Fall wird in 
Zeile 330 nicht erneut zur Zeile 270 zurückgesprungen und der 
Programmblock "Ausgabe der sortierten Elemente" bearbeitet. 


Schalterstellung "1": 


Sind die Feldelemente noch nicht vollständig sortiert, so 
wird ein Sortiervorgang ausgelöst, d.h. die Zeilen 300 und 
310 durchlaufen. In Zeile 310 wird dann Z auf | gestellt. Z 
bewirkt in der Schalterstellung | in Zeile 330 eine Rückver- 
zweigung zur Anweisung 270. 

Danach wird die FOR NEXT-Schleife in dem Programmblock "Sor- 
tieren der Tabellenelemente'" erneut durchlaufen. 
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Mit anderen Worten: 


Im ungünstigsten Fall muß jedes Element getauscht werden, 
wodurch das Sortieren sehr lange dauern kann. 


Kurzinformation zu den weiteren Programmblöcken 
Dimensionierung des Feldes A$(I) 


Mit der Anweisung DIM A$(99) wird ein Feld dimensioniert und 
Platz für 100 Feldelemente geschaffen. 


Bildschirmaufbau 


Die MODE 1 -Anweisung setzt das Bildschirmformat auf 40 Spal- 
ten pro Zeile. 

Mit den Anweisungen in den Zeilen I0O0O und 110 wird die 
Hintergrundfarbe auf die Farbe Schwarz und die Zeichenfarbe 
auf Hellweiß gesetzt. 

Die CLS-Anweisung löscht und färbt entsprechend der PAPER- 
und der INK-Anweisung in Zeile 100 den Bildschirm ein. 

Mit WINDOW #1,1,40,10,25 wird das Bildschirmfenster mit dem 
Datenstrom "1" definiert. WINDOW SWAP 0,1 setzt den Textcur- 
sor in dieses Bildschirmfenster, so daß die Eingaben hier 
erfolgen können, ohne die vorhandenen Bedienungshinweise bei 
größeren Datenmengen zu beeinträchtigen. 


Dateneingabe 


Die Dateneingabe erfolgt mit einer LINE INPUT-Anweisung, so 
daß auch Kommata eingegeben werden können. Abgefragt wird in 
Zeile 230 das "*'" -Zeichen, für die Kennung des vorzeitigen 
Eingabeendes. Wird es eingegeben, so wird zum Programmblock 
"Sortieren der Tabellenelemente" verzweigt. 

Vorgestellt wird Ihnen die Wirkung der UPPER$-Anweisung in 
Zeile 220. Sie bewirkt eine automatische Umwandlung in Groß- 
buchstaben. 
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Ausgabe der sortierten Elemente 


LOCATE positioniert den Textcursor auf das angesprochene 
Bildschirmfenster. Über eine FOR NEXT-Schleife werden die 
sortierten Tabellenelemente ausgegeben. Die blockartige Aus- 
gabe von je 10 Elementen wird in Zeile 430 durch eine MODulo- 
Division erreicht. Zeile 430 wurde programmiert, damit Sie 
als Benutzer die Möglichkeit besitzen, die Ausgabegeschwin- 
digkeit der Tabellenelemente selbst zu bestimmen. Erreicht 
wird es durch eine IF THEN-Anweisung, die abfragt, ob der 
Schleifenzähler durch 10 teilbar ist. Ist dies gegeben, so 
kann über Eingabe von ENTER der nächste sortierte Block 
angefordert werden. Beachten Sie hierbei, daß bei dem ersten 
Element der Schleifenzähler gleich Null ist und eine Division 
mit 10 auch in diesem Fall die Bedingung der IF THEN-Anwei- 
sung erfüllt, so daß mit AND der Fall ausgeschlossen wurde. 


Ausgabe beenden 
Zusätzlich wird zu Ihrer Information die Anzahl der Elemente 
ausgegeben. Zeile 490 löscht einen Teil der Bedienerhinweise, 
um das Ausgabeende zu signalisieren. 

Mit dem Programm haben Sie die Grundlagen des Sortierens ken- 


nengelernt, so daß Sie nun zu komplexeren Sortierlösungen überge- 
hen können, die auch in der Edition HEIM erschienen sind. 
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Sie ausführlich in die Arbeitsweise mit den mathematischen Funk- 
tionen einzuführen, ist nicht vorgesehen, da es nicht das Thema 
in dem vorliegenden Band sein soll. An dem Thema interessierte 
Leser finden in der Edition HEIM entsprechende Literatur. Hier 
sollen nur das Format und die mathematische Wirkung in einer 
Übersicht aufgezeigt werden. 


Eine mathematische Aufgabe 


Zu Beginn eine kleine mathematische Problemstellung und ihre 
Lösung: 


Problemstellung: 


Um aus der Zahl 25 die Quadratwurzel zu ziehen, schreiben Sie 
folgendes "Programm": 


FRINT SOR (25) 


und erhalten auf dem Bildschirm die Anzeige 


5 
Ready 


In der PRINT-Anweisung finden Sie die mathematische Funktion 
SOR(25). Der Name der Funktion ist SQR. Hinter dem Funktionsnamen 
muß immer ein Klammerausdruck stehen. Es kann sich dabei um eine 
Zahl, wie in dem Beispiel oder aber um einen allgemeinen numeri- 
schen Ausdruck handeln, für den der Computer den Wert errechnen 
soll. 


Der in Klammern stehende Ausdruck wird als Argument bezeichnet. 
Allgemein wird das Argument mit X angegeben, also: 


SOR(X). 


Da aus einer negativen Zahl keine Wurzel gezogen werden kann, 
meldet der Computer auch einen Fehler, wenn Sie programmieren: 


FRINT SQR (-25) 
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Er meldet auf dem Bildschirm: 
Improper argument 


zu deutsch: falsches Argument. Vergleichen Sie hierzu das Kapitel 
"Fehlermeldungen und Fehlercodes". 


Die Funktion SQR(X) gehört zu den Standardfunktionen, die mar 
auch als "eingebaute" Funktionen bezeichnen kann, da sie deı 
BASIC-Interpreter dem Benutzer von sich aus zur Verfügung stellt, 
so daß sie nicht programmiert werden müssen. 


Überblick der mathematischen Standardfunktionen 


Es wird der ROM-BASIC-Interpreter des >> CPC 464 << besprochen, 
so daß in der nachstehenden, tabellarischen Übersicht nur auf die 
vorhandenen Standardfunktionen eingegangen wird. 

Derjenige Leser, der nicht das mathematische Problemlösen mit 
Standardfunktionen liebt, kann auch zum nächsten Abschnitt "Zei- 
chenkettenfunktionen" übergehen. 


Arithmetische Funktionen 


ABS(X) - Absolutwert 


X kann jeder beliebige numerische Wert sein. Das Ergeb- 
nis hat denselben Typ wie das Argument. 


PRINT ABS (-9.80665) 
9.806685 
SGN(X) - Signumfunktion (Vorzeichen) 


Liefert -1 für negative und | für positive X, sowie 0 
wenn X gleich O ist. 


Beispiel: PRINT 86N(-345.1),SGN(0) ,SGN(99) 
-1 o ı 
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SOR(X) - Quadratwurzel 
Berechnet die Quadratwurzel einer positiven Zahl. 
PRINT SOR(9),SGR(10) 
3 3.16227766 
LOG(X) - natürlicher Logarithmus 


LOG berechnet den natürlichen Logarithmus einer positi- 
ven Zahl. 


PRINT LOG (1.234) 
0.210260926& 


EXP(X) - Exponentialfunktion 
Die Funktion EXP berechnet die natürliche Exponential- 
funktion zur Basis e (=2.7182818), wobei X kleiner sein 
muß als 88. 
Ii=EXP (LOG (1.234)) 


Fı1 
1.234 


Trigonometrische Funktionen 

SIN(X), COS(X), TAN(X) 
Die o.a. Funktionen liefern Sinus, Cosinus und Tangens 
eines Winkels im Bogenmaß. X ist irgendein numerischer 


Ausdruck. 


Soll ein Winkel im Gradmaß bearbeitet werden, so muß 
zuvor die Anweisung DEG gegeben werden. 
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?8IN (1) 
0.841470985 
Ready 
DEG 
Ready 
78IN (30) 
0.5 


ATN(X) 


Berechnet denjenigen Winkel im Bogenmaß, dessen Tangens 
X ist. Um den Winkel im Gradmaß zu erhalten, ist zuvor 
die Anweisung DEG einzugeben. 


FRINT ATN(TAN(1.2345)) 
1.2345 


Konvertierungsfunktionen 
INT(X), FIX(X), CINT(X) - Ganzzahlkonvertierung 


INT liefert die nächste ganze Zahl, die kleiner ist als 
X, FIX schneidet die Stellen nach dem Dezimalpunkt ab, 
CINT rundet X auf die nächste ganze Zahl. 


10 PRINT" X INT FIX CINT" 

20 PRINT STRINGS$ (27,'"-") 

So FOR Z=-1 TO 2.1 STEP 0.3 

40 PRINT USING "HH. "HZI INTCZIIFIXCZIJCINT(Z) 
SO NEXT Z 
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Ergebnis: x INT FIX CINT 
-1.0 -1.0 -1.0 -1.0 
-0.7 -1.0 0.0 -1.0 
-0.4 -1.0 0.0 0.0 
-0.1 -1.0 0.0 0.0 

0.2 0.0 0.0 0.0 
0.5 0.0 0.0 1.0 
0.8 0.0 0.0 1.0 
1.1 1.0 1.0 1.0 
1.4 1.0 1.0 1.0 
1.7 1.0 1.0 2.0 
2.0 2.0 2.0 2.0 


CREAL(X) - Gleitkommakonvertierung 
Wandelt den Wert des Ausdrucks X in eine Gleitkommazahl 
um. 

HEX$(X), BIN$ (X) - Hexadezimal-/Binär-Werte 


Wandelt den Wert X in eine Zeichenkette um, welche die 
Hexadezimal-/Binär-Darstellung des Wertes enthält. 


FRINT HEX$ (23456) , BIN$ (23456) 
SBAO 101101110100000 


ASC(S$),CHRS(N) - Zeichen/Ganzzahlkonvertierung 
ASC wandelt das erste Zeichen von S$ in eine ganze Zahl 


um, während CHR$ die ganze Zahl N in ein Zeichen umwan- 
delt. Die Umwandlung erfolgt nach dem ASCII-Code. 
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FRINT ASC ("Zeichen") ,ASC("Z") 

90 90 

FRINT CHR$ (12) ı:’Loescht den Bildschirm 
FRINT CHR$ (243): ’Ffeil nach rechts 


VAL(S$) - Wert einer Zeichenkette 


Die Funktion liefert den numerischen Wert der Zeichen- 
kette. VAL betrachtet die Zeichenkette nur bis zum er- 
sten Zeichen, das nicht +, -, &, E oder 0-9 ist. 


Beispiele: 


T VAL("IZE") ,VAL("100 kg") ,VAL("DM 500.-") 


123 100 [6] 

Ready 

? VALC"LOOOO") ,VAL("KA1O") ,VAL("-9,81") 
10000 16 -9.81 

Ready 


STR$(X) - Ziffernumwandlung in Zeichenkette 


Wandelt den Wert des Ausdrucks X in eine Zeichenkette 
um. Sie hat die umgekehrte Aufgabe wie die VAL-Funktion. 
Die erste Stelle der Zeichenkette enthält das Vorzei- 


chen. 


Beispiel: 10 As15 
20 As=5TR$ (A) 
S0 FRINT "L"3A2")J ["3As;"] 


RUN 
t 151119) 
Ready 


Beachten Sie, daß die erste 15 eine Zahl ist, mit der 
gerechnet werden kann, die zweite 15 durch die STR- 
Funktion dagegen eine Zeichenkette geworden ist. Es ist 
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in obigem Beispiel daran zu erkennen, daß bei der Ausga- 
be der Zeichenkette A$ kein Leerzeichen angefügt wurde, 
wie dies bei der Ausgabe von Zahlenwerten geschieht, 
denn der zweiten 15 folgt sofort die "eckige Klammer 


zu". 


Zeichenkettenfunktionen 
LEN(S$) - Zeichenkettenlänge 


Liefert die Länge einer Zeichenkette, wobei alle Leer- 
stellen und Kontrollzeichen mitgezählt werden. 


10 FRINT LEN("eins")3" + "ıLEN("zwei");" = "5 
z20 FRINT LEN ("eins"+"zwei") 


RUN 
4 + 4 = 8 
Ready 


LEFT (S$,n), RIGHT (S$,n) 


Liefert die linken bzw. rechten Zeichen der Zeichenkette 


s$. 


10 A&="RECHTS ist das BaganEnt] von LINKS" 
20 X$=LEFT$(A$,6) 

30 .Y$=RIGHT$ (A$, 5) 

40 Zs#=" ist das Gegenteil von " 

50 FRINT. A® 

&0 FRINT Y$ı 26: X%$ 

70 END 


RUN 

RECHTS ist das Gegenteil von LINKS 
LINKS ist das Gegenteil von RECHTS 
Ready 
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MID$(S$,N (,M)) 
und 
MIDS(S$,N (,M)) = T$ 


Die erste Form dient dazu, eine Teilzeichenkette aus der 
Zeichenkette S$ zu entnehmen. Mit der zweiten Form ist 
es möglich, Teile einer Zeichenkette zu ersetzen. Dabei 
gibt N die Startposition der Teilzeichenkette und deren 
Länge an. Wird M nicht angegeben, werden alle rechts von 
N stehenden Zeichen kopiert. 


Für die zweite Form gilt außerdem: 


Ist M nicht angegeben, werden alle Zeichen von T$ ko- 
piert. Es werden aber auf keinen Fall mehr als LEN(S$)-N 
+ 1 Zeichen übertragen, die Länge von S$ ändert sich 
also nicht. 


10 A$="Der Fach-Verlag ist in Darmstadt" 
20 B$="Heim-" 

30 FRINT A$ 

40 FRINT MID$(A$,5,5) 

50 FRINT B$ 

&0 MID$ (A$,5)=B$ 

70 FRINT A$ 

RUN 

Der Fach-Verlag ist in Darmstadt 
Fach- 

Hei m- 

Der Heim-Verlag ist in Darmstadt 
Ready 
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STRING$ (N, CODE?) 


und 


STRING$(N,C$) - Wiederholung von Zeichen 


Liefert eine Zeichenkette, die das Zeichen mit dem 
ASCII-Code CODE% oder das erste Zeichen von C$ N-mal 
enthält. 

10 FRINT " "STRING$(37,"=") °37 Gleichheitszeichen 

20 a$=5TRING$ (13, '"%") 

350 FRINT " "ası" Einladung "ja$ 

RUN 


RORRRRRRRKKKK Einladung RRRBKIKKOKKKKOKK 


Ready 


INSTR( (N,)X$,S$) - Suchen von Teilketten 


Die Funktion liefert die Position der Zeichenkette S$ in 
sS$, oder 0, wenn S$ nicht in X$ vorkommt. Gesucht wird 
ab Position N oder von Anfang an, falls N nicht angege- 
ben wird. 


5 k$#=CHR$ (34) 1 1 F$=CHR# (10) 
6 CLS 


10 
20 


Ate"wird" 

B$=" In diesem String wird gesucht " 

N=1INSTR (B#,A®) 

IF N=0 THEN PRINT"NICHT GEFUNDEN" :END 
PRINT "Das Wort "1f% 

FRINT k#3 A$ı ksı 1f$ 

FRINT "wurde gefunden im String "1f# 

PRINT k$3 Bsı k$ı 1f$ 

FRINT" an Fosition ";N3"."s1f$ 
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Ergebnis: Das 


Wort 


"wird" 


wurde gefunden im String 


"In diesem String wird gesucht " 


an Fosition 19. 


Ready 


SPACE$(X) - Leerzeichenkette 


Liefert eine Zeichenkette mit X Leerzeichen. 


10 
20 
30 
40 
so 


&0 


DATA B,A,S,1,C 

FOR I=1 TO 5 

READ A$(I) 

FRINT SFACES(I) As(I) 
NEXT 

END 
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Einführung 


Alle diese Standardfunktionen, die Sie nun kennengelernt haben, 
besitzen zwei Gemeinsamkeiten: 


l. Standardfunktionen stehen unter BASIC permanent zur Verfügung, 
d.h. sie sind fester Bestandteil des BASIC-Wortschatzes. 


2. Standardfunktionen liefern als Ergebnis einer Berechnung einen 
einzigen Wert. 


Trotz des umfangreichen BASIC-Wortschatzes des >> CPC 464 << gibt 
es Berechnungen, die nicht direkt über den Aufruf einer solchen 
Standardfunktion ausführbar sind. Hierzu ein konkretes Beispiel: 


Ein Anwendungsfall 


Häufig besteht der Wunsch, mehrere Bedienerhinweise in einem 
Programmablauf mittig bzw. zentriert auf dem Bildschirm auszuge- 
ben. Dieses ist über den Aufruf von nur einer der Standardfunk- 
tionen nicht direkt erreichbar. Das bedeutet: 


Es müßte mehrmals und zwar an jeder Stelle des Programms, an 
denen Bedienerhinweise zentriert ausgegeben werden sollen, :glei- 
che Funktionen programmiert werden. Die "Zentrierfunktion" hat 
dann folgendes Aussehen: 


CINT((40-LEN(A$))/2) 


und bestimmt die Anzahl der Leerzeichen vor der auszugebenden 
Zeichenkette. Die Variable A$ ist dabei die Zeichenkettenvaria- 
ble, in der die zu zentrierende Zeichenkette steht. Der Wert 40 
ist die Bildschirmbreite, d.h. für eine Ausgabe im MODE 2 ist 
hier eine 80 anzugeben. Die Zentrierfunktion setzt sich dabei aus 
mehreren Standardfunktionen zusammen. 

Damit nicht bei jedem Aufruf die gesamte Zentrierfunktion ge- 
schrieben werden muß, besteht unter BASIC die Möglichkeit, dieser 
Funktion einen Namen zu geben und sie mit diesem "Kurznamen" zu 
schreiben und aufzurufen. 
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Diese selbst zu definierenden Funktionen werden "Anwender-" oder 
"Benutzerfunktionen" genannt. 
Definition einer Benutzerfunktion 


Definiert wird die Zentrierfunktion als Benutzer-Funktion durch 
die Anweisung: 


DEF FNZ(A$)=CINT((40-LEN(A$))/2) 
Erklärung: 
Dem BASIC-Interpreter ist zuerst mitzuteilen, daß eine Benutzer- 
Funktion definiert werden soll. Dieses wird durch das Schlüssel- 
wort 


DEF 


kenntlich gemacht. 


Funktionsname 


Die zweite Angabe ist der Name der Funktion. Zu beachten ist, daß 
der Name der Benutzer-Funktion grundsätzlich mit 


FN 


beginnen muß. Für den Rest des Namens gelten die Regeln für die 
Vergabe von Variablen-Namen. In diesem Fall soll die Funktion "zZ" 
heißen, d.h. der Name entspricht der einer numerischen Variablen. 
Die numerische Variable enthält die Anzahl der Leerzeichen, die 
vor der Zeichenkette ausgegeben werden sollen. Die "Teil"-Defini- 
tion lautet dann: 


DEF FNZ oder DEF FN Z 


Die zweite, deutlichere Schreibweise ist hierbei auch erlaubt. 


174 


17. Benutzerfunktionen 


Formales Argument und aktuelles Argument 


Weiter muß ein Platzhalter hier "A$", der beim Aufruf der Funk- 
tion ersetzt werden soll, für das Argument angegeben werden. Der 
Platzhalter "A$" wird auch "formales Argument" genannt. Das for- 
male Argument ist hierbei quasi eine "interne Variable" der 
Benutzer-Funktion. 


Benannt wird das formale Argument in dem Beispiel mit A$, da eine 
Zeichenkette der Funktion zur Berechnung übergeben werden soll. 
Sie erhalten dann: 


DEF FNZ(A$) 


Die Formel, in der das formale Argument auftritt, ist nun für die 
Berechnung anzugeben ; Sie erhalten: 


DEF FN Z(A$) = CINT((40-LEN(A$))/2) 


Die Benutzer-Funktion "FN 2" ist hiermit eindeutig definiert. Sie 
kann im gesamten Programm mit "FNZ" aufgerufen werden. 

An das formale Argument A$ wird beim Aufruf der Funktion der 
aktuelle Wert von WORT$ übergeben. In diesem Beispiel wurde die 
Variable WORT$ bezeichnet, d.h. aktuelles und formales Argument 
müssen vom gleichen Typ sein, aber nicht den gleichen Namen 
besitzen. 

Außerdem bleibt A$ im Programm als Variable verfügbar, d.h. die 
formalen Argumente sind ebenso wie die Namen der Benutzer-Funk- 
tionen unabhängig von gleichlautenden Variablennamen. 


Aufruf der Benutzerfunktion 


Beispiel für einen Aufruf der definierten Zentrierfunktion: 


10 DEF FN Z(A$)=CINT ((40-LEN (A$)) /2) 
20 WORT$="Zeichen-Definition" 

=0 FRINT FN Z(WORT$) 

40 END 
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Ergebnis: 11 


* Das Programm gibt die Anzahl der Leerzeichen aus, die für eine 
Zentrierung der Zeichenkette "Zeichen-Definition" notwendig 
sind, damit diese zentriert auf dem Bildschirm erscheint. 


Hinweis: 


Diese definierte Funktion wird durch BASIC nicht "gesichert" 
und läßt sich nicht in anderen Programmen, sondern nur in dem 
Programm aufrufen, in dem sie definiert ist. 


Hilfen für die Programmanalyse: 


* Der Name dieser Funktion ist nur Z. Der Zusatz FN muß dem 
Namen der Funktion vorangestellt sein, damit BASIC er- 
kennt, daß es sich nicht um eine Variable, sondern um eine 
Benutzer-Funktion handelt. 


* In Zeile 20 wird der Variablen WORT$ die Zeichenkette 
"Zeichen-Definition'" zugewiesen. 


* Der Funktion Z wird der Wert von WORT$, der zur Ausführung 
der Berechnung nötig ist, als Argument übergeben. Als 
Ergebnis wird nur ein Wert zurückgegeben. 


* Der Wert wird durch die PRINT-Anweisung in Zeile 30 ausge- 


geben. Er entspricht den Leerzeichen, die vor der Zeichen- 
kette ausgegeben werden müssen, um diese zu zentrieren. 
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Nach diesen Vorüberlegungen finden Sie nun das vollständige Pro- 
gramm mit Ausgabe der zentrierten Zeichenkette: 


Beispiel: 
10 DEF FNZ (A$)=CINT ((40-LEN (A$)) /2) 
20 TEXT$="Karteiprogramm" 


30 FRINT " "STRING$ (38, "-")35 
40 PRINT SFACE$(FNZ(TEXTS$SI)TEXTS$ 


Weitere Benutzerfunktionen 


Weitere für Ihre Anwendungsfälle vordefinierte, mathematische Be- 
nutzer-Funktionen finden Sie nachstehend. 


Für die Berechnung des Arcussinus: 


DEF FN AS(X) = ATN(X/SQR(1-X*X)) 


Für die Berechnung des Arcustangens: 


DEF FN AT(X) = -ATN(X/SOQR(I1-X#X))+PI 


Für Berechnungen nach dem Satz des Pythagoras: 

DEF FN P(X,Y) = SQR(X#X + Y*Y) 
Für die Berechnungen nach dem Satz des Pythagoras sind zwei 
Angaben notwendig, so daß auch zwei Parameter angegeben werden 


müssen. Diese werden sowohl bei der Definition, als auch beim 
Aufruf der Funktion durch Kommata getrennt angegeben. 
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Regeln zur DEF FN-Anweisung 


* 


* 


DEF leitet eine Definitionsanweisung ein. 
FN kennzeichnet eine Benutzer-Funktion. 
DEF und FN müssen durch ein Leerzeichen getrennt sein. 


Der Name darf von der Funktionskennung FN mit einem Leerzeichen 
getrennt angegeben werden. 


Der Name der Benutzer-Funktion ist unabhängig von den Variablen 
in dem aufrufenden Programm. 


Die Definition muß vor dem ersten Aufruf der Benutzer-Funktion 
erfolgt sein. 


Der Typ des Funktionsnamens muß mit dem Typ des zurückgegebenen 
Werts übereinstimmen. 


Der Funktionsname muß ein zulässiger Variablenname sein. 
Eine definierte Benutzer-Funktion wird durch die NEW- und 
CLEAR-Anweisung und durch ein Ausschalten des Computers ge- 


löscht. 


Eine Benutzer-Funktion besitzt nur in dem Programm Gültigkeit, 
in dem sie definiert wird. 


Eine Benutzer-Funktion darf nur aus Standard-Funktionen zusam- 
mengesetzt sein. 


Sollen mehrere Parameter an die Benutzer-Funktion übergeben 
werden, so müssen diese durch Kommata getrennt werden. 


Hinweis: 


Ruft man eine Funktion auf, bevor sie definiert worden ist, 
meldet der Computer: "Unknown user function". 
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Einführung 


Die Definition von benutzereigenen Funktionen haben Sie anhand 
einiger nützlicher Programmbeispiele kennengelernt. Diese erwor- 
benen Kenntnisse sollen Ihnen in diesem Abschnitt als Grundlage 
für die Neuerarbeitung der Unterprogrammtechnik dienen. Sie wer- 
den feststellen, daß die Unterprogrammtechnik sehr viele Gemein- 
samkeiten mit den Benutzerfunktionen aufweist und Sie sehr 
schnell in der Lage sein werden, diese interessante Programmier- 
technik selbst anzuwenden. 

Damit Sie direkt in diese Materie einsteigen können, werden die 
Ergebnisse stichpunktartig wiederholt: 


Wiederholung zur DEF FN-Anweisung: 
* Die Funktionen, die im Programm an den unterschiedlichsten 
Stellen vorkommen, sollten mit einer DEF FN-Anweisung pro- 


grammiert werden. 


*% Diese Funktion muß nur an einer einzigen Stelle im Programm 
definiert werden. 


* Die Definition der Funktion muß vor dem ersten Aufrufen der 
Funktion erfolgen, d.h. im Programmaufbau ist darauf zu 
achten, daß diese am Programmanfang steht. 

* Im Programmablauf kann die benutzereigene Funktion unter 
ihrem Namen mit Angabe der aktuellen Argumente aufgerufen 


werden. 


Weiterhin wurden die Vorteile dieser Programmiertechnik vermit- 
telt, die auch in der Unterprogramntechnik zum Tragen kommen. 


Die Vorteile der DEF FN-Anweisung 
* Sie vermeidet Wiederholungen beim Programmieren, das heißt: 
l. Das Programm wird übersichtlicher. 


2. BASIC-Syntaxfehler treten nicht so häufig auf. 
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3. Die Zeit für das Eingeben des Programms verringert sich. 


4. Es wird Platz im Arbeitsspeicher entsprechend der Länge 
der vorab definierten Funktion eingespart. 


Nun kommt es in der Programmierpraxis häufig vor, daß bestimmte 
Programmteile im Programmablauf mehrfach benötigt werden. Es ist 
demnach eine ähnliche BASIC-Anweisung wie die DEF FN-Anweisung 
gefordert, nur daß es sich hierbei nicht um einen mehrmaligen 
Aufruf einer gleichen Funktion, sondern um den mehrmaligen und 
gezielten Aufruf eines ganzen Programmteils handelt. 

Diese immer wieder neu an den entsprechenden Stellen gleichlau- 
tend einzufügen, ist sicher müßig. Zweitens nicht die beste 
Lösung, da es zu der Umkehrung der bei der DEF FN-Anweisung 
genannten Vorteile führen würde. 


Anwendungsfälle 


Denken Sie bitte einmal an folgende, vorgegebene Anwendungsfälle, 
die Sie mit einem BASIC-Programm bewältigen wollen: 


Fall 1: 


Es sollen mehrfach gleichgroße, farbige Kreise auf dem Monitor 
ausgegeben, wobei die Farbe und die Position der neuen Kreise 
gewechselt werden. 


Fall 2: 

Es soll innerhalb eines Programmablaufs mehrfach, d.h. in unter- 
schiedlichen Programmblöcken, Anweisungen stehen, die einen 
gleichlautenden Text zur Bedienerführung ausgeben sollen und 


danach eine vom jeweiligen Programmblock abhängige Programmfort- 
setzung erfolgen. 


Die Problematik ist, wie Sie auch festgestellt haben werden, daß 


l. ein bestimmter Programmblock mit einer Folge von Anweisungen 
in einem Programm in der gleichen Form mehrmals benötigt wird. 
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2. der Programmblock an unterschiedlichen Programmstellen zwi- 
schen zwei Anweisungen verfügbar sein muß bzw. eingefügt wer- 
den kann. 


3. der mehrmals benötigte Programmblock nur einmal im Programm 
vorhanden sein soll. 


Die Sprachschöpfer von BASIC haben zur Lösung des Problems eine 
besondere Aufruftechnik für ganze Programmblöcke geschaffen. 


Betrachten Sie hierzu die Programskizze! 
Programnskizze 


10 kAkkkkkkkkkkkkkr Hauptprogramm Krrkkkkkkckkckhe 
20 Anweisung(al):Anweisung(a2):GOSUB 1020:Anweisung(a3) 
7.. 

80 Anweisung(b1):GOSUB 1020 


90 Anweisung(c1) 

100 END ’---------- Hauptprogramm-Ende ------ 

1000 

1010 KrARkAkkRkRRkRk UNTERPROGRAMM KArkArkKccccchcchccr 


1020 Anweisung(ul):Anweisung(u2) 
1030 Anweisung(u3) 
1040 RETURN ’------ Unterprogramm-Ende -------- 


Die GOSUB- und RETURN-Anweisung 
In der Programmskizze befinden sich zwei neue BASIC-Worte: 


GOSUB und RETURN 


GOSUB bedeutet: 


Verzweige (GO) in das Unterprogramm (SUBroutine). 


RETURN bedeutet: 
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Kehre zurück zu der unmittelbar auf die der GOSUB-Anweisung 
folgenden Anweisung. 


Den in der Programskizze dargestellten Programmablauf sollten Sie 
nun mitverfolgen! 


Programmablauf der Skizze 


l. 


In Zeile 20 werden die Anweisungen (al) und (a2) durchlaufen. 


2. GOSUB 1020 verzweigt dann nach der Zeile mit der Nummer 1020. 

3. Die Anweisungen (ul),(u2) und in Zeile 1030 die Anweisung (u3) 
des Unterprogramms werden nun abgearbeitet. 

4. In Zeile 1040 befindet sich nun die Anweisung RETURN, die 
Auslöser für den Rücksprung in das Hauptprogramm ist. 

5. Der Rücksprung erfolgt zu Anweisung(a3), die jetzt durchlaufen 
wird. 

6. Das Hauptprogramm wird nun bis zur Anweisung(bl) abgearbeitet 
und durch die weitere GOSUB-Anweisung ein zweitesmal in das 
Unterprogramm verzweigt. 

7. Anweisung (ul), (u2) und (u3) werden durchlaufen und in Zeile 
1040, ausgelöst durch die RETURN-Anweisung, wieder in das 
Hauptprogramm zurückgesprungen. 

8. Anweisung(c1) ist hierbei die nächste auszuführende Anweisung. 

9. Nachdem Anweisung(c1) abgearbeitet ist, wird in Zeile 100 das 
Programm durch die END-Anweisung beendet. 

Übungen 


Prüfen Sie anhand der Programmskizze den Programmverlauf, wenn in 
Zeile 100 nicht die END-Anweisung programmiert worden wärel 
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Überlegen Sie, warum die Anordnung von Unterprogrammen am Schluß 
des Programms sinnvoll ist. 

Überdenken Sie, ob man in dieser Programmskizze eine oder auch 
mehrere GOTO-Anweisungen ersatzweise für die GOSUB-Anweisungen 
verwenden kann. 


Ein Beispielprogramm beschreibt nun die Programmierung: 


10 ’--- Hauptprogramm --------------- 
20 MODE 0 

30 DATA 1,2,6,7,9,10 

40 INK 0,0:CL5 

50 Im2ı Y=260 

60 FOR X=170 TO 470 STEF 100 
70 READ FARBE 

80 INK I,FARBE 

90 GOSUB 220 

100 I=I+1 

110 NEXT X 

120 Y=140 

130 FOR X=270 TO 370 STEF 100 
140 READ FARBE 

150 INK I,FARBE 

160 GOSUB 220 

170 I=I+1 

180 NEXT X 

190 END 


210 "--- Unterprogramm ------------ 
220 FOR A=1 TO 44 

230 FLOT X,Y 

240 DRAW X+BOXCOS (A) „Y+BOXSIN(A),„TI 

250 NEXT 

260 RETURN 


Lesen Sie bitte zuerst die Kurzinformationen zu den neuen, im 
Programm angewendeten BASIC-Anweisungen und versuchen Sie, danach 
den Programmablauf zu bestimmen. 
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Die CLS-, PLOT-, DRAW- und INK-Anweisung 


Kurzinformationen zu den neuen BASIC-Anweisungen: 


*% CLS steht für "CLEAR SCREEN" und löscht alle Zeichen auf dem 
Monitor. Wird die Angabe CLSi#<Datenstrom> vorgegeben, so färbt 
CLS das entsprechende Bildschirmfenster ein. 


*% PLOT positioniert den nicht auf dem Monitor sichtbaren Graphik- 
Cursor und setzt einen Pixel (Graphikpunkt). Die Werte für die 
X- und Y-Koordinaten sind bezogen auf die Pixel-Koordinaten. 


* DRAW zeichnet eine Linie von der aktuellen Graphik-Cursorposi- 
tion zu dem durch X- und Y-Koordinate bestimmten Punkt. 
Die Koordinatenangaben beziehen sich auf die Pixel-Koordinaten. 
Die untere linke Ecke des Bildschirmfensters besitzt die Koor- 
dinaten 0,0, die rechte obere Ecke die Koordinaten 639,399. 


*% INK wird benutzt, um die Farbe von PAPER bzw. PEN zu wechseln. 
Die erste Codezahl bezeichnet den bei PAPER bzw. PEN verwende- 
ten Code. Der an zweiter Stelle anzugebende Farbcode bestimmt 
die neue Farbe, die PEN bzw. PAPER annimmt. 


Die Bildschirmausgabe wird Ihnen aufzeigen, daß Sie mit Ihren 
Überlegungen zum Programmablauf recht haben und der vorab genann- 
te erste Beispielfall: "mehrfach gleichgroße, farbige Kreise" 
programmiert wurde. Das Hauptprogramm und das mit der RETURN- 
Anweisung abgeschlossene Unterprogramm sind recht einfach be- 
stimmbar. Sie erkennen zudem, daß die Anordnung der beiden 
GOSUB-Anweisungen in diesem Programm ähnlich der in der Programn- 
skizze ist. 


Hilfen für Ihre Programmanalyse: 


* In Zeile 30 werden Konstanten in einer DATA-Anweisung 
für die Farbe der Kreise bereitgehalten. 


* In Zeile 40 wird die Hintergrundfarbe des Bildschirms 


mit der INK-Anweisung und der CLS-Anweisung auf 
Schwarz eingefärbt. 
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In Zeile 50 wird die Y-Koordinate der oberen vier 
Graphiken festgelegt und der Farbcode wird mit I=2 auf 
zwei voreingestellt. 


Die FOR NEXT-Schleife in Zeile 60 bestimmt die X- 
Koordinaten der Mittelpunkte der Graphiken. 


In Zeile 70 wird mit der READ-Anweisung die FARBE der 
ersten Graphik eingelesen. 


Die Ink-Anweisung in Zeile 80 ordnet dem Farbcode I 
die eingelesene FARBE zu. 


Mit der GOSUB-Anweisung in Zeile 90 wird zum Unterpro- 
gramm, das in Zeile 220 beginnt, gesprungen. 


In Zeile 100 wird der Farbcode I für die nächste 
Graphik um eins erhöht, es gilt IeI+l. 


Das Schleifenende befindet sich in Zeile 110. 


In Zeile 120 wird die Y-Koordinate für die unteren 
beiden Graphiken mit Y=140 festgelegt. 


Die Zeilen von 130 bis 180 ähneln den Zeilen 60 bis 
110, es werden aber für die Graphiken andere X-Werte 
verwendet. 


‘Zeile 160 enthält die zweite GOSUB-Anweisung, d.h. das 
Unterprogramm wird zum zweitenmal aufgerufen. 


Zeile 190 beendet das Hauptprogramm mit der END-Anwei- 
sung. 


Die FOR NEXT-Schleife des Unterprogramms gibt den 
Winkel im Bogenmaß vor, den die DRAW-Anweisung nutzt. 


Durch PLOT X,Y wird der Ursprung für die DRAW-Anwei- 


sung auf die Koordinate X,Y festgelegt. Dieses ent- 
spricht dem Mittelpunkt der Graphiken. 
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*% Die DRAW-Anweisung zieht Linien auf der Basis der 
Berechnungen in der Farbe, die dem Farbcode I ent- 
spricht. 


* Die FOR NEXT-Schleife des Unterprogramms wird mit der 
NEXT-Anweisung in Zeile 250 abgeschlossen. 


* Die RETURN-Anweisung in Zeile 260 verursacht den Rück- 
sprung zum Hauptprogramm. 


Zusammenfassung: 


* Mit der GOSUB-Anweisung und einer zusätzlichen Angabe der 
Startzeile des Unterprogramms kann in Unterprogramme gesprungen 
werden. 


*% Die angegebene Startzeile muß vorhanden sein und sollte keine 
REM-Zeile sein. 


*% Unterprogramme müssen mit der Anweisung RETURN abgeschlossen 
sein. 


*% Die RETURN-Anweisung löst den Rücksprung aus einem Unterpro- 
gramm zum Hauptprogramm aus. 


* Zurückgesprungen wird zu derjenigen Anweisung, die nach der 
GOSUB-Anweisung steht, von der aus in das Unterprogramm ver- 
zweigt wurde. 


* Auch bei mehreren GOSUB-Anweisungen in einem Hauptprogramm 
"merkt" sich BASIC die Absprungstelle. 


* Das Hauptprogramm muß mit einer END-Anweisung abgeschlossen 
werden, wenn ein Unterprogramm ohne vorherige GOSUB-Anweisung 
durchlaufen werden kann. 


* Unterprogramme sollten am Ende des Hauptprogramms angeordnet 
werden, da hierdurch die Übersichtlichkeit gewahrt bleibt und 
das Unterprogramm nicht über verkomplizierende Programmiertech- 
niken umgangen werden muß. 
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Die Schachtelung von Unterprogrammen 


Wenn man von einem Unterprogramm in ein weiteres Unterprogramm 
springt, "schachelt" man gewissermaßen die Unterprogramme. Den 
Ausdruck "Schachtelung" kennen Sie bereits von den "Geschachtel- 
ten FOR NEXT-Schleifen". Bei der Unterprogrammtechnik wird im 
Mikrocomputer die Schachtelungstiefe durch einen Stapelspeicher 
bestimt. 


Der >> CPC 464 << besitzt eine Schachtelungstiefe von 84, d.h. es 
können maximal 84 geschachtelte Unterprogrammaufrufe ausgeführt 
werden. Danach erscheint dann die Fehlermeldung 


"Memory full in <Zeilennummer>". 
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Einführung 


Das Treffen von Entscheidungen gehört zu den wichtigsten Forde- 
rungen an einen Computer. Deshalb hat man in BASIC einige Anwei- 
sungsformen entwickelt, die den Computer in den Stand versetzen, 
Entscheidungen zu treffen. 


BASIC verfügt über Anweisungen, die vergleichend Entscheidungen 
im Programmablauf und hierdurch vorprogrammierte Sachentscheidun- 
gen zulassen. Sie kennen bislang die IF THEN-Anweisung, mit der 
Sie Programmentscheidungen abgefragt haben. Sie basierte auf dem 
Erfülltsein oder Nichterfülltsein bestimmter, vorgegebener Bedin- 
gungen. 


Bei dem Anweisungstyp, den Sie jetzt erarbeiten, ist es im we- 
sentlichen nicht anders. Auch hier wird verglichen und in Abhän- 
gigkeit vom Vergleichsergebnis reagiert. 

Nur ist die Reaktion auf den Vergleich eine Verzweigung von 
mehreren möglichen Verzweigungen. 


Die ON GOTO-Anweisung 


Der letzte Teil der Anweisung ist Ihnen schon bekannt. Sie wis- 
sen, daß GOTO <Zeilennummer> unbedingt in die hinter GOTO stehen- 
de Zeile mit der angegebenen Zeilennummer hin verzweigt. Es wird 
von daher bei der GOTO-Anweisung auch von einem "unbedingten 
Sprung" gesprochen. 


Die ON GOTO-Anweisung hat, allgemeingültig betrachtet - man nennt 
es in BASIC-Handbüchern das "FORMAT" der Anweisung - folgendes 
Aussehen: 


ON <Ausdruck> GOTO <Liste von Zeilennummern> 


Sie erkennen, daß hier nicht nur eine Zeilennummer ‘erlaubt ist, 
sondern eine von Ihnen zu bestimmende Anzahl. Diese Zeilennum- 
mern stehen, durch Kommata getrennt, in einer Liste. Die GOTO- 
Anweisung kannte nur eine Zeilennummer, zu der BASIC hinverzweig- 
te. 
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Die ON GOTO-Anweisung unterscheidet hier mehrere Verzweigungsmög- 
lichkeiten, so daß über ein vorher berechnetes Ergebnis ein 
gezielter Sprung in eine entsprechende Zeile bzw. Anweisung er- 
folgt. 


Hier wird dann von "berechneten Sprüngen'" gesprochen. Die Sprung- 


zeile ist demnach abhängig von einem Ergebnis oder einem bestimm- 
ten Wert des <Ausdrucks>. 


Das BASIC-Schlüsselwort der ON GOTO-Anweisung ist "ON". Wird es 
eingelesen, so interpretiert BASIC es so: 

l. Sofortige Berechnung des <Ausdrucks>, der auf ON folgt. 

2. Das Ergebnis ist hierbei immer eine Integerzahl (ganze Zahl). 


3. Diese Integerzahl betimmt eindeutig die Position in der Li- 
ste, die dem zweiten Schlüsselwort GOTO folgt. 


4. Eine Programmverzweigung erfolgt zu derjenigen Anweisungsnum- 
mer, die in.der Liste der Zeilennummern auf der betreffenden 
Position steht. 

Beispiel: 


Die Anweisung lautet: ON I GOTO 100,250, 160,80,600, 1560, 1900 


Erklärung: 


Der Variablen "I" werden nachfolgend in einer Tabelle Werte 
zugewiesen, anschließend die Position in der <Liste der Zeilen- 
nummern> angegeben und die Sprungzeile hierzu in Beziehung ge- 
setzt: 
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I Position Verzweigung nach 

6 6 Zeilennummer 1560 
l l Zeilennummer 100 
4 4 Zeilennummer 80 
3 3 Zeilennummer 160 
5 5 Zeilennummer 600 
7 7 Zeilennummer 1900 


Die Entscheidung der Programmverzweigung ist demnach hier durch 
den gesetzten Wert der Variable I bestimmt. Sie erkennen, daß 
hier nur ganze positive Zahlen für I angegeben wurden. Positive 
Zahlen müssen es sein, dagegen sind aber ganze Zahlen (Integer- 
zahlen) nicht zwingend vorgegeben, es erfolgt ansonsten eine Auf- 
bzw. Abrundung der Zahl. 


Zusammenfassung zur ON GOTO-Anweisung: 


* Ausführung eines berechneten Sprungs zu einer Programm- 
zeile. 


* Der Sprung erfolgt in Abhängigkeit zum Wert des numerischen 
Ausdrucks. 


*% Die Angabe des Wertes erfolgt nach dem Schlüsselwort "ON". 


* Der numerische Ausdruck darf nur positive Werte zwischen 0 
und 255 annehmen. 


* Wird der numerische Ausdruck Null oder größer als die 
Anzahl der Zeilennummern in der Liste, so wird zur nächsten 


Anweisung gesprungen. 


*% Die Angabe der Zeilennummern erfolgt getrennt mit Kommata 
in einer nach GOTO angelegten Liste. 


*% Die angegebenen Zeilennummern müssen existieren. 
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Programmbeispiel 


10 "Frogrammbeispiel zu ON GOTO 

20 °? men mer mn wre wur mie Kur emmes ms une mis Mu ei Kae Amin Mes Mike ee wm au ae an m in m Ms a aa an en a msn man anne ann 
20 ° 

40 I=I+1 

SO ° un su mus mn mn une mn mn rin men wc men wre min Kar urn men amits min wma nie were One eis Kinn am au ann mas anne mann was ame mn mem 
60 ON I GOTO 100,150,120,180,80, 140, 200 
70 ° um mn men min imner sone mn iin int ame man Mi ans an ine Mader Me m wi Me Man ae A A Mi Me a a a Mn an man an ame mn 
80 FRINT"eigene" 

90 GOTO 40 

100 FRINT"Auch "5; 

110 GOTO 40 

120 FRINT"lieben "; 

130 GOTO 40 

140 FRINT"Schoenheit!"; 

150 GOTO 40 

160 FRINT"Stachelschweine "; 

170 GOTO 40 

180 FRINT"ihre "; 

190 GOTO 40 

200 END 


Das ausgegebene Ergebnis vermittelt eine "Lebensweisheit", die 
Sie sicher noch nicht kannten. 


Das Beispielprogramm ist aber ganz bewußt auf die Erläuterung der 
berechneten Sprunganweisung ausgelegt, ohne unnötig zusätzliche, 
mathematische Formeln. Betrachten Sie bitte allein die Wirkungs- 
weise der ON GOTO-Anweisung. 


Analysieren Sie nun das Programm und berücksichtigen Sie dabei 
insbesondere die Anweisung Nr. 60, die "Berechnete-Sprung-Anwei- 
sung"! 
Hilfen für Ihre Analyse: 

* Die Anweisungen Nr. 10, 20, 30, 50 und 70 enthalten 


nur Kommentare und haben auf den Programmablauf keinen 
Einfluß. 
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* In der Anweisung Nr. 40 wird der Zähler I um | hochge- 
zählt. Die Anweisung wird im Verlaufe der Programmaus- 
führung von sechs verschiedenen Anweisungen angesprun- 
gen, und zwar von den Anweisungen 90, 110, 130, 150, 
170 und 190. 


* Der Zähler I hat bei Beginn des Programms den Wert 
Null. Wird die Anweisung 40 zum ersten Mal durchlau- 
fen, erhält I den Wert I, da0O + |I= list. 


* Mit dem Anfangswert | wird die Anweisung Nr. 60 er- 
reicht. 


* Im ersten Durchlauf besitzt I den Wert |. 


* In der ersten Position der Liste der Zeilennummern 
steht die Zeilennummer 100, demnach wird zuerst zur 
Zeile 100 verzweigt und ausgeführt. 


*% In Anweisung 110 wird zur Anweisung Nr. 40 verzweigt; 
dort wird der Zähler um | erhöht. 


*% Wird die Anweisung Nr. 60 erreicht, so hat I den Wert 
2. Es wird zu der auf der 2. Position in der Liste 
stehenden Anweisung mit der Nr. 160 verzweigt. Auf dem 
Bildschirm wird das Wort < Stachelschweine > ausgege- 
ben, und zwar hinter dem dort schon stehenden Wort 
"Auch". 


* Diesmal hat I den Wert 3, deshalb wird die Anweisung 
angesprungen, die auf der 3. Position in der Liste 
steht: Es ist die Anweisung 120. Hinzugefügt wird das 
Wort < lieben >. 


In der beschriebenen Weise wird fortgefahren, bis auf dem Bild- 
schirm der Satz 


Auch Stachelschweine lieben ihre eigene Schoenheit! 


ausgegeben wurde. 
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Die Variable besitzt dann den Wert 6. Von der Anweisung Nr. 150 
aus wird zur Anweisung Nr. 40 verzweigt und I um | auf 7 erhöht. 


* In der Anweisung Nr. 60 wird damit in der Liste der 7. 
Platz erreicht. 


* Die Verzweigung zur Anweisung Nr. 200 wird ausgeführt. 
Der Programmdurchlauf ist damit abgeschlossen und das 
Programmende erreicht. 


Sie haben den reinen Programmablauf überprüft und dabei sicher- 
lich erkannt, daß die Zielanweisungen, zu denen hinverzweigt 
werden soll, in der Liste in beliebiger, also unsortierter Rei- 
henfolge stehen können. 


Für den ordnungsgemäßen Programmablauf ist allein der Wert der 
Variablen I und die Plazierung der anzuspringenden Zeilennummer 
innerhalb der Liste der Zeilennummern ausschlaggebend. 
Anwendungsfall: "Währungsumrechnung" 

Die ON GOTO-Anweisung wird in der Regel nicht für eine Ausgabe 
von "Lebensweisheiten", sondern für Auswahlmenüs in Programmen 
genutzt. Ein solcher Anwendungsfall wird im folgenden Beispiel- 
programm aufgegriffen. 


Programmerkmale 


Für das Programmbeispiel wird ein Devisenumrechnungsprogramm 
projektiert. 
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Der Leistungsumfang wird vorgegeben mit: 

l. Verarbeitung von 9 Landeswährungen 

2. Umrechnung von DM in Fremdwährung 

3. Umrechnung von Fremdwährung in DM 

4. Umrechnung zwischen Fremdwährungen 

5. Fest vorgegebene Wechselkurse 

6. Menü- und Dialog-Technik bei Abfragen 

7. Routinen für die Plausibilitätsprüfung 

8. Ausgabe aller Devisensorten über ein Menü 
9. Auswahl der Devisensorte im Dialog 
10. Ausgabe des Wechselkurses bezogen auf die Einheit 100 


Il. Formatierte Ausgabe der berechneten Beträge mit der 
Währungseinheit 


12. Ausgang zum Kommandomodus (Betriebssystem) 


Das Programm: "Währungsumrechnung" 


Prüfen Sie bitte zuerst den Programmablauf und vergleichen Sie 
anhand des Programmlistings die Programmblöcke mit den unter- 
schiedlichen Zeilen, die mit ON GOTO angesprungen werden. 


Überlegen Sie weiter, wann das Unterprogramm "Sortenauswahl" 


aufgerufen wird und welche GOSUB-Anweisung in welchen Zeilen 
dieses bewirkt. 
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110 
120 
130 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
400 
410 
420 
430 
440 
450 
450 
470 
480 
490 
soo 


"Programm zur Waehrungsumrechnung 


MODE i 

DATA US-Dollar, 35.3,$,engl Pfund, 24.510, "£" 

DATA schw. Franken, 82.474, sfr.,ital. Lire, 59880. 2,Lire 
DATA oesterr. Schillinge, 697.350, 0eS 

DATA fr. Francs, 298.507,FF,span. Pesetas, 5263.1,Pta 
DATA holl. Gulden, iii.1ii,hfl.,belg. Francs, 2020. 2,bfrs 
FOR I=1 TO 9 


READ WAEHRUNG$ (IT) ,KURS(IT) ,EINHEIT$ (TI) 

NEXT I 

As" 

ame MENUE i mit ON GOTO-Anweisung ---------------- 
CLS 

PRINT " xxx Programm: Waehrungsumrechnung Kk%X":PRINT 


PRINT "MEN U E":PRINT 

PRINT STRING$ (40, 154) 

PRINT "Umrechnen von ":PRINT 

FRINT "DM in Fremdwaehrung ses snan. (1) "SPRINT 
PRINT "Fremdwaehrung in DM „saesen22. (2) "SPRINT 
FRINT "Fremdwaehrung in Fremdwaehrung (3) "SPRINT 
PRINT "Programmende „.sseceesannnnnnn (A) "SPRINT 
PRINT: INPUT"Bitte Kennziffer eingeben --> ",KENNZ 
IF KENNZ<1 OR KENNZ>4 THEN 210 

ON KENNZ GOTO 410,610,810, 1120 


Dessen DM in Fremdwaehrung -------------------- 
CLS:G0OSUB 1010 

CLS:LOCATE 1,3 

FRINT"Frogrammteil: Umrechnen in Fremdwaehrung" 

PRINT STRING$ (40, 154) 

FRINT"DM in "WAEHRUNG$ (KENNZ) : PRINT 
FRINT"Wechselkurs: 100.00 DM ="; 

PRINT USING A$; KURS (KENNZ) SPRINT" "EINHEIT$(KENNZ); 
LOCATE 2,12: 1INFUT "Wieviel DM: ",MENGE 
FREMD=MENGE KKURS (KENNZ) /100 

LOCATE 1,15: PRINT"Sie erhalten fuer :" 
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510 PRINTSPRINT"DM"ZUSING A$; MENGE; 

520 PRINT" --> "USING A$; FREMD; ı PRINT" "EINHEIT$(KENNZ) 
530 PRINT STRING$ (40, 154) :LOCATE 5,24 

540 INPUT "Weiter --> ENTER druecken!",ENTER$ 

550 GOTO 210 

560 ’ 

800 ’-------- Fremdwaehrung in DM -------------------- 
610 CLS:GOSUB 1010 

620 CLS:LOCATE 1,3 

630 PRINT"Programmteil: Umrechnen in DM" 

640 PRINT STRING$ (40, 154) 

650 PRINT WAEHRUNG$ (KENNZ) 5" in DM"SPRINT 

660 PRINT"Wechselkurs: 100.00 "3EINHEIT$(KENNZ)5" = "; 
670 PRINT USING a$; 10000/KURS (KENNZ) 5: PRINT" DM"; 

680 LOCATE 2,12 

690 PRINT"Wieviel "EINHEIT$(KENNZ) 5: INPUT MENGE 

700 DM=MENGE&100/KURS (KENNZ) 

710 LOCATE 1,15:PRINT"Sie erhalten fuer :" 

720 PRINT:FRINT EINHEIT$(KENNZ);ZUSING A$; MENGE; 

730 PRINT" --> "USING A$; DM; : PRINT" DM" 

740 GOTO 530 

750 ° 

800 °------ Umrechnen zwischen Fremdwaehrungen ----------- 
810 CLS:LOCATE 5,18: PRINT"umrechnen von: " 

820 GOSUB 1010: KENNZI=KENNZ:CLS 

830 LOCATE 5,18: PRINT"umrechnen in":GOSUB 1010 

840 KENNZ2=KENNZ:CLS 

850 PRINT"Frogrammteil: Fremdwaehrungswechsel"; 

860 PRINT STRING$ (40, 154) 

870 PRINT WAEHRUNG$ (KENNZ1)5" in "WAEHRUNG$ (KENNZ2) 

880 FRINT:FRINT"Wechselkurs: 100.00 ";EINHEIT$(KENNZ1); 
890 KURS=KURS (KENNZ2) X100/KURS (KENNZ1) 

900 PRINT " ="USING A$; KURS; :FRINT" "EINHEIT$ (KENNZ2); 
910 LOCATE 1,15 

920 PRINT"Wieviel "EINHEIT$(KENNZ1);5:INFUT MENGE 

930 ENDWERT=KURSXMENGE/ 100 

940 LOCATE 1,15: FRINT"Sie erhalten fuer :" 

950 LOCATE 1,17 
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960 PRINT EINHEIT$(KENNZ1)HUSING A$; MENGE; 

970 PRINT" --> "USING A$;ENDWERT5: PRINT" "3EINHEIT$(KENNZ2) 
980 GOTO 530 

990 °’ 

1000 °’------- Unterprogramm Sortenauswahl ------------------ 
"1010 LOCATE 5,3:PRINT"Programmteil: Sortenauswahl ":PRINT 
1020 FRINT STRING$ (40, 154) 

1030 FOR I=1 TO 9 

1040 X=21-LEN (WAEHRUNG$ (I) ) 

1050 PRINT TAB(S) 5; WAEHRUNG$ (I) +" "+STRING$(X,".")+" ="5] 
1060 NEXT I 

1070 LOCATE 1,22:PRINT SPACE$ (39) :LOCATE 1,22 

1080 INPUT"Bitte Kennziffer eingeben --> ",KENNZ 

1090 IF KENNZ<1 OR KENNZ>9 THEN 1070 

1100 RETURN 

1110 ’------- Programmende ------------------------- 
1120 CLS:PRINT"Frogrammende" :END 


Hilfen für Ihre Programmanalyse: 


* In den Zeilen 200 bis 320 befinden sich die Anweisun- 
gen für die Ausgabe des Hauptmenüs. Mit der ON GOTO- 
Anweisung wird in Abhängigkeit zur eingegebenen Kenn- 
ziffer der einzelne Programmblock angesprungen: 


* Programmblöcke: - DM in Fremdwährung 
- Fremdwährung in DM 
- Umrechnen zwischen Fremdwährungen 


Zusätzlich kann der Ausgang zum BASIC-Kommandomodus über die 
Kennziffer 4 ausgewählt werden. 


* Das Unterprogramm "Sortenauswahl" wird mit den GOSUB- 
Anweisungen in den Zeilen 410, 610, 820 und 830 aufge- 
rufen. 


* Im Programmblock "Umrechnen zwischen Fremdwährungen" 


wird das Unterprogramm "Sortenauswahl" zweimal aufge- 
rufen, da zwei Devisensorten einzulesen sind. 
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Der Begriff "berechneter Sprung" wurde im letzten Kapitel anhand 
der ON GOTO-Anweisung vorgestellt, die eine berechnete Programm- 
verzweigung in eine entsprechende Programmzeile aus der Liste der 
Programmzeilen ausführt. Fast gleich in der Wirkweise ist die 
Anweisung 


ON GOSUB 
mit dem Format: 
ON <numerischer Ausdruck> GOSUB <Liste mit Zeilennummern> 


Sie erkennen, daß beide Formate fast identisch sind. Einziger 
sichtbarer Unterschied ist das BASIC-Wort GOSUB, das hier an- 
stelle von GOTO in der ON GOSUB-Anweisung steht. 

Die BASIC-Anweisung GOSUB findet sich im letzten Programmbeispiel 
für einen Unterprogrammaufruf. Sie liefert den Wirkunterschied 
zu der ON GOTO-Anweisung. Sie erinnern sich: 


* Mit der GOSUB-Anweisung und einer zusätzlichen Angabe 
der Startzeile des Unterprogramms kann in Unterprogram- 
me gesprungen werden. 


* Unterprogramme müssen mit der RETURN-Anweisung abge- 
schlossen sein. 


* Die RETURN-Anweisung löst den Rücksprung aus einem 
Unterprogramm zum Hauptprogramm aus. 


* Zurückgesprungen wird zu derjenigen Anweisung, die nach 
der GOSUB--Anweisung steht, von der aus in das Unterpro- 
gramm verzweigt wurde. 


* Das Hauptprogramm muß mit einer END-Anweisung abge- 
schlossen werden, wenn ein Unterprogramm ohne vorherige 
GOSUB-Anweisung durchlaufen werden kann. 


*% Unterprogramme sollten am Ende des Hauptprogramms an- 
geordnet werden, da hierdurch die Übersichtlichkeit 
gewahrt bleibt und das Unterprogramm nicht über verkom- 
plizierende Programmiertechniken umgangen werden muß. 
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Aus der Kombination beider Anweisungen ist die Wirkung der ON 
GOSUB-Anweisung ableitbar. Sie bewirkt das gleiche, mit der Aus- 
nahme, daß nicht berechnet in eine Programmzeile, sondern berech- 
net in ein Unterprogramm gesprungen wird. Die Startzeilen der 
aufzurufenden Unterprogramme sind wie bei der ON GOTO-Anweisung 
in der Liste der Zeilennummern durch Kommata getrennt anzugege- 
ben. Das Unterprogramm muß außerdem wie bei der GOSUB-Anweisung 
mit RETURN abgeschlossen werden. 
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Einführung 


Ein feature des >> CPC 464 << ist es, alle nur denkbaren Zeichen 
zu kreieren, zu definieren und mit der SYMBOL-Anweisung auf einen 
bestimmten ASCII-Wert zu legen. 


Konkret: 


Allen 255 vorhandenen ASCII-Werten können neue Zeichen 
zugeordnet werden. Das bedeutet, daß Sie ohne große 
Probleme jeden Länderzeichensatz selbst definieren und 
auf dem >> CPC 464 << nutzen können. 


Das Kapitel wurde bewußt "Projekt" genannt, da es Ihnen ein 
fertiges, lauffähiges Dienstprogramm "Zeichen definieren" anbie- 
tet. Sie können mit dem Programm im Dialog z. B. einen deutschen 
Zeichensatz erstellen und die Tastatur so anpassen, daß eine 
deutsche DIN-Tastatur, wie Sie sie von der Schreibmaschine her 
kennen, entsteht. Das Dienstprogramm bietet die Voraussetzung für 
die optimale Nutzung der Projekte "Text" und "Kartei". 


Zeichen zu definieren heißt, mit Bit und Byte umgehen. Die Ein- 
führung in "gesetzte" und "nichtgesetzte Bit" -Folgen wird di- 
rekt auf das Projekt bezogen, um Sie nicht mit der "grauen Theo- 


rie" zu belasten. 


Bit und Byte 

Dezimalzahlen- und Binärzahlen-Syscem 

Das "Dezimalzahlen-System" ist für Sie eine bekannte Größe. Sie 
rechnen im Alltag meist in und mit diesem Zehner-System. 

Ein anderes Zahlen-System ist das "Binär-System', es kennt nur 
zwei Ziffern O und Il. Ihr >> CPC 464 << arbeitet intern mit 


diesem System. 


Die Einheit heißt Bit und ist die Abkürzung für "BInary digiT". 
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Rechnen mit Dezimalzahlen und Binärzahlen 


Betrachten Sie zunächst einmal die Zahl 6846 im Dezimal-Systenm. 
Die. angegebene Zahl kann nach den mathematischen Regeln von links 
nach rechts zerlegt werden in: 


Tausender --> 6 entspricht 6 * 1000 = 6000 
Hunderter --> 8 entspricht 8 * 100 = 800 
Zehner --> 4 entspricht 4 * 10 = 40 
Einer --> 6 entspricht 6 * l = 6 


Werden die Produkte addiert, so erhält man 
als Summe die Zahl 6846. 


Nach den mathematischen Regeln läßt sich hierfür schreiben: 


6 * 1000 = 6 * 10 * 10 * 10 
8% 100 = 8* 10 * 10 

4 * = 4%* 10 
6 * lI= 6 


Die Mathematik erlaubt dann noch die kürzere Potenzschreibweise. 
Dabei ist z.B. 

10 * 10 * 10 = 10° 
Festgelegt wurde zusätzlich, daß 


100 = | 
ist, 


Es kann nun für die Zahl 

6846 = 6 * 10° + 8 * 102 +4 * 10 + 6 * 100 
geschrieben werden. 
Nicht anders wird im Binär-System gerechnet, außer daß die Basis 
im Gegensatz zur IO im Dezimal-System 2 ist, d.h. jede Stelle 


oder Bit im Binärsystem entspricht einer Zweierpotenz. Die Bits 
sind von rechts nach links von O bis 7 durchnummeriert. 
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Das erste Bit (Stelle) eines Bytes wird mit Bit "0" bezeichnet 
und das letzte Bit mit "7". Bit O ist dabei ganz rechts und Bit 7 
ganz links bei einer Binärzahl zu lesen. 

Stellen einer Binärzahl: 


Binärzahl: 10101110 


Bit: 77653210 


Bit O entspricht hierbei 2° und Bit 7 der Wert 27. 

Betrachten Sie nun die Binärzahl 1001l, die entsprechend von 
links nach rechts zerlegt und in eine Dezimalzahl umgerechnet 
wird. 


Umwandlung einer Binärzahl in eine Dezimalzahl: 


1%2%= 1%2*%*2%X2%2= ]6 


EI UERENER -= 0 
682° #2 83 -= 0 
1x 2!-21%2 = 2 
1*20.1%] = l 


Die Umrechnung der Binärzahl in eine Dezimalzahl ergibt den Wert 
von: 


16 +0 +0 +2 +1 = 19 


Wissen müssen Sie weiter, daß der Computer intern immer Blöcke 
von 8 Bits verarbeitet, die ein Byte genannt werden. 
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Das Binär-System besitzt, wie vorher gesagt, nur die Ziffern 0 
und I. Auch ein Bit kann nur diese beiden Werte annehmen. Steht 
es auf |, so bezeichnet man es als "gesetztes Bit". Einzelne Bits 
in einem Byte können durch Eingabe von Dezimalzahlen gesetzt 
werden. 

Dieses ist notwendig, da Binärzahlen in BASIC nicht direkt einge- 
geben werden können. Sollen einzelne Bits eines Bytes gesetzt 
werden, so ist wie folgt vorzugehen: 


Beispiel: 
Bit Berechnung Dezimal-Wert 
0 I 1-1 l 
) 2% 1-2! 2 
2 2% 2 = 2? 4 
3 2%*2%*%2= 2° 8 
4 ZWEI III 16 
5 EREEDMIE NEIN +33 
6 EREIREEIN DE II 64 


TER RIRIUIRI RIED] 128 


Werden Bit I, Bit 3, Bit 5 und Bit 6 in einem Byte gesetzt, so 
ist die Dezimalzahl 106 anzugeben. 


Die Berechnung der Zahl erfolgt nach dem Schema: 


2 +8 + 32 + 64 = 106 
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Pixel und Zeichen 


Die einzelnen Zeichen bestehen aus 8 Byte. Ein Byte stellt eine 
Zeichenzeile dar. Ist in einem Byte ein Bit gesetzt, so erscheint 
ein Bildpunkt. Sind z.B. alle Bits des letzten Byte gesetzt, so 
ist dieses der Unterstreichungsstrich. Das letzte Byte stellt 
somit die unterste der acht Zeichenzeilen dar. Für einen Buchsta- 
ben stehen 8 x 8 Pixel (Bildpunkte) zur freien Gestaltung neuer 
Zeichen oder Symbole zur Verfügung. Werden sie alle gesetzt, so 
ergibt sich ein Karosymbol. 


Beispiel: 


Es soll der Großbuchstabe "F'" definiert werden. 


Die SYMBOL-Anweisung 


Zeichenmatrix für die SYMBOL-Anweisung: 


76543210 Bit dezimaler Wert des Bytes 
l.B te XXXXXXX 127 
2. Byte XX X 49 
3. Byte XXX X 52 
4. Byte XXXX 60 
5. Byte EEK 52 
6. Byte XX 48 
7. Byte XXXX 120 
8. Byte 0 


76.3 32.1.0 BIE 
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In der Tabelle sind die gesetzten Bits mit "X" gekennzeichet, 
d.h. für ein gesetztes Bit erscheint auf dem Monitor ein Pixel. 


Die Anweisung SYMBOL erlaubt über die Angabe von 8 Dezimalwerten 
für die entsprechenden Bytes der 8 Zeichenzeilen eine Neude- 
finition der Zeichen. 


Die SYMBOL-Anweisung lautet für den auszugebenden Buchstaben "F": 


SYMBOL 163,127,49,52,60,52,48, 120,0 


Die letzten acht Werte in der Liste sind die ermittelten Dezimal- 
zahlen der 8 Bytes, die die Zeichenzeilen festlegen. Der erste 
Wert ist der ASCII-Wert des Zeichens, welches neu definiert wird 
und danach mit CHR$(<ASCII-Wert>) aufgerufen werden kann. 


Geben Sie das Beispielprogramm ein: 


10 MODE © 

20 SYMBOL AFTER 37 

30 SYMBOL 37,127,49,52,60,52,48,120,0 
40 PRINT 

50 PRINT CHR$ (37), "F" 

&0 PRINT 


Starten Sie dieses Programm nun, betrachten Sie das Ergebnis und 
vergleichen Sie das erste ausgegebene Zeichen mit der oben 'vorge- 
stellten Zeichenmatrix. 


Mit dem Beispielprogramm wird das neudefinierte Zeichen "F" auf 
den ASCII-Wert 37 des Prozentzeichens (%) gelegt. 

Für Ihren Vergleich wurde ein Zeichen gewählt, das Sie selbst 
überprüfen können. Prüfen Sie nun die beiden ausgegebenen Zeichen 
und vergleichen Sie diese. Sie erkennen, daß das neudefinierte 
Zeichen rechtsbündig ist, das andere im Zeichensatz vorhandene 
aber linksbündig steht. Nicht linksbündig, da bit 7 in allen 
Bytes nicht gesetzt wird. 
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Drücken Sie nun SHIFT- mit der Prozenttaste. Auch im Direktmodus 
bleibt dieses neudefinierte Zeichen erhalten, bis eine weitere 
SYMBOL AFTER-Anweisung alle eigendefinierten Zeichen wieder 
löscht. 


Die SYMBOL AFTER-Anweisung 


Kurzinformation zur SYMBOL AFTER-Anweisung 


* Die SYMBOL AFTER-Anweisung gestattet eine Umdefinition 
aller Zeichen ab dem angegebenen ASCII-Werte bis zum 
maximalen Wert von 255. 


* Darunterliegende Werte können nicht mit SYMBOL umdefi- 
niert werden. Nach dem Einschalten des >> CPC 464 << 
liegt dieser <ASCII-Wert> bei 240. 


*% Eine SYMBOL AFTER-Anweisung löscht vorher selbst defi- 
nierte Zeichen! 


Die erworbenen Kenntnisse werden Ihnen einerseits helfen, Zeichen 
ohne das vorliegende Dienstprogramm zu kreieren, andererseits 
werden Sie das Programm besser für Ihre Anwendungsfälle auswerten 
können. 


Es stellt ein Hilfsmittel für die Neudefinition von Zeichen dar, 
ohne größere Überlegungen und mathematische Berechnungen durch- 
führen zu müssen. 
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Programm: "Zeichendefinition" 


Programmlisting 


10 

20 

so 

40 

so 

s0 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


Iaman-- Frojekt: Zeichen-Definition ---------------- 
ON ERROR GOTO 830° Fehlerbehandlung 
nen Puffer fuer Zeichen ab CHR$(32) festlegen -- 
SYMBOL AFTER 32 
mn Variablendefinition -------------- 2-2 
DEFINT X,Y,Z 
DIN A(8, 8, Z(8) 
“arrnner Bildschirmaufbau -------------- 2-27 
MODE 1 
FAFER O: INK 0,1 
PEN 1:INK 1,24 
ELSEINE 3,0:BORDER 14 
“ass Fenster fuer Zeichenmatrix ------- 
WINDOW #1,11,18,11,18 
FAFER #1,2: INK 2,14 
CLS #1:FAFER #1,0 
PuslB 850° --> Matrix-Raster zeichnen 
ee Veberschrift ---------------- 777722 n 
LOCATE 10, 3:PRINT"Zeichen-Definition" 
LOCATE 25,8: FRINT"altes Zeichen 
LOCATE 2,5 
FRINT"Zeichen komplett --> ENTER druecken!" 
LOCATE 12,8: PRINT"MATRIX" 
daten) Umrandung des Zeichens --------------------- 
LOCATE 29,13: FRINT CHR$ (150) CHR$ (154) CHR$ (156) 
LOCATE 29,14: FRINT CHR$ (149) CHR$ (32) CHR$ (149) 
LOLATE 29,15: FRINT CHR$ (147) CHR$ (154) CHR$ (159) 
Tessa Achsen beschriften ---------------- 
LOCATE 10,9: FRINT"Y" 
FOR Y=1 TO 8 
LOCATE 9,19-Y:PRINT STR$(Y) 
NEXT Y 
LOCATE 20, 19: FRINT"X" 
FOR X=1 TO 8 
LOCATE 10+X,19:FRINT RIGHT$(STR$ (X), 1) 
NEXT X 
’- Eingabe des ASCII-Werts des zu aendernden Zeichens - 
GOSUR 730 
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390 LINE INFUT"Welchen ASCII-Wert aendern? ":WERT$ 
400 WERT=VAL (WERT$) 
410 IF WERT <32 OR WERT>255 THEN 380 


420 ’--- Ausgabe des Zeichens --------------------- - - 
430 PAPER 3 

440 LOCATE 30, 14: PRINT CHR$ (WERT) 

450 PAPER O0 

BO, Free Eingabe der Koordinaten m 
470 GOSUB 730 

480 LINE INPUT "X-WERT = ";X$ 


490 IF LEN(X$)=0 THEN 950 

500 X=VAL(X$) 

S10 IF X<1 OR X>8 THEN GOSUB 770:60T0 430 

520 GOSUB 730 

530 LINE INFUT "Y-WERT = ";Y$ 

540 IF LEN(Y$)=0 THEN 950 

550 Y=VAL(Y$) 

560 GOSUB 730 

570 Y=9-Y 

580 IF Y<i OR Y>8 THEN GOSUB 770:60T0 520 

590 FOEATE 25,8:PRINT"neues Zeichen 

800 ’--------- Punkt auf Matrix setzen ---------------- ---- 
&10 IF A(X,Y)=1 THEN A(X,Y)=-1 ELSE A(X,Y)=1 

620 LOCATE #1,%X,Y 

630 IF A(X,Y)=1 THEN FRINT #1,CHR$(32)5:60T0 450 
640 FAFER #1,2:PRINT #1,CHR$ (32); :PAPER #1,0 

650 bläst 850’ --> Gitter wiederherstellen 


DOOF resHsRen Auswertung der Eingabe nn 
670 Z(Y)=Z(Y)+A(X,Y) 2” (8-X) 
BO mein zeichen neu dgerinieren 


690 SYMBOL WERT,Z(1),2(2),2(3),2(4),2(5),2(6),2(7),Z(8) 

700 GOTO 430 

710 °--------- Unterprogramme ------------------------- - - - - 
720 °--------- Zeile unten loeschen ------------------- - - - - 
730 LOCATE 2,24: PRINT STRING$ (39,32); 

740 LOCATE 2,24 

750 RETURN 
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770 GOSUB 730 
780 FRINT "Xkk fehlerhafte Eingabe Kkxkk 
790 FOR i=1 TO 400:NEXT i 


800 RETURN 

Bio ’ 

820. ==> Fehlerbehandlung -------------------22 
850 GOSUB 770:RESUME 430 

840 °’-------- Matrix-Raster zeichnen ------------------ 


850 FOR i=113 TO 254 STEF 16 

840 MOVE 161,i 

870 DRAWR 125,0 

880 NEXT i 

890 FOR I=161 TO 289 STEF 16 

900 MOVE 1,113 

910 DRAWR 0,127 

920 NEXT I 

930 RETURN 

940 "mu Abfrage auf Eingabeende -----—-------------- 
950 GOSUB 730 

960 INFUT "Zeichen fertig (J/N) ";ANTW$ 
970 ANTW$=UFPER$ (ANTW$) 

980 IF ANTWE<>"J" THEN 450 

970 GOSUB 730 

1000 INFUT "Weiteres Zeichen definieren (J/N) ";ANTW$ 
1010 ANTW$=UPFER$ (ANTW$) 

1020 IF ANTW$<>"N" THEN ERASE A,Z:GOTO 70 
1030 °---- Frogramm beenden ----------- 
1040 LOCATE 1,21 

1050 PRINT" Zeichenkette mit dem" 

1050 FRINT" neu definierten Symbol: " 

1070 GOSUB 730 

1080 FRINT STRING$ (58, WERT) 

1090 LOCATE 1,1 

1100 END’Programmende 


Sie erkennen anhand der REM-Zeilen im Programmlisting, daß dieses 
Dienstprogramm blockartig aufgebaut ist. 
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Programmblöcke 


Puffer festlegen 
Variablendefinition 
Bildschirmaufbau 

Eingabe des zu ändernden Zeichens 
Ausgabe des zu ändernden Zeichens 
Eingabe der Koordinaten 

Graphische Darstellung der Eingabe 
Auswertung und Neudefinition 
Hilfsroutinen als Unterprogramme 


FR HN INH NIH 


Programmblock: Puffer festlegen 


* Der "aktive" Teil dieses Programmblocks ist die Anweisung in 
Zeile 70. Die REM-Zeilen, die durch einen Apostroph gekenn- 
zeichnet sind, beeinflussen den Programmablauf nicht. 

Mit der Anweisung SYMBOL AFTER 32 ein Puffer für 224 Zeichen 
eingerichtet. Sie ermöglicht die Neudefinition sämtlicher Zei- 
chen ab dem ASCII-Wert 32. 

Ohne Pufferfestlegung können nur die Zeichen ab dem ASCII-Wert 
240 umdefiniert werden. 


Programmblock: Variablendefinition 


* Ein Zeichen besteht aus 8 x 8 Pixeln, die entweder gesetzt sein 
können oder nicht. Halbe Punkte existieren nicht. Die Koordina- 
ten der Punkte werden im Programm mit X und Y bezeichnet. Es 
sind nur ganzzahlige Werte möglich. Die Variablen X und Y 
werden deshalb auch als Integervariablen definiert. 

Für das zu bearbeitende Zeichen wird ein Feld benötigt. In dem 
Feld wird geprüft, ob ein Pixel bereits gesetzt ist oder nicht. 
Das Feld ist entsprechend der Anzahl der Pixel eines Zeichens 
dimensioniert. 

Mit der DIM-Anweisung wird ein Feld von 8 * 8 Elementen und ein 
Vektor Z mit 8 Elementen dimensioniert. Der Vektor wird später 
für die Anweisung SYMBOL benötigt. 
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Programmblock: Bildschirmaufbau 


*% Der Bildschirm wird über die MODE I -Anweisung auf 40 Zeichen 
pro Zeile gesetzt. Der Vorteil ist, daß die 8 * 8 Zeichen- 
Matrix annähernd einem Quadrat gleicht. Die Zeichen und die 
Hintergrundfarbe werden durch die INK-Anweisungen in die Grund- 
einstellung "eingelöscht". Die Zeichenfarbe wird hellgelb und 
die Hintergrundfarbe blau vorgegeben. 


Teil: Fenster für Zeichenmatrix 


* Ein Bildschirmfenster wird mit der WINDOW-Anweisung für die 
Zeichen-Matrix definiert und mit der PAPER- INK- und CLS-Anwei- 
sung in die Farbe pastellblau eingefärbt. Die GOSUB-Anweisung 
ruft das Unterprogramm "Matrix-Raster zeichnen" auf. 


Teil: Überschrift 


* Die Überschriften und Bedienerhinweise werden mit PRINT-Anwei- 
sungen auf dem Bildschirm ausgegeben. Mit der LOCATE-Anweisung 
werden diese an der gewünschten Stelle auf dem Bildschirm 
plaziert. 


Teil: Umrandung 


* Mit Graphikzeichen wird ein Feld umrahmt, in das später das 
Symbol zur optischen Prüfung gesetzt wird. 


Teil: Achsen beschriften 


%*% Ist das Matrix-Raster gezeichnet, werden die einzelnen Zeilen 
und Spalten beschriftet. 
Die STR$-Anweisung gibt die Ziffern als Zeichenkette aus, ohne 
hierbei ein Leerzeichen an die Ziffer anzufügen, damit der 
fertige Bildschirmaufbau nicht überschrieben wird. 
Das Leerzeichen vor positiven Zahlen wird für die Beschriftung 
in der X-Richtung aus dem gleichen Grund ebenfalls entfernt. 


Mit der RIGHT$-Anweisung wird nur das letzte Zeichen, die 


Ziffer in der mit STR$ erzeugten Zeichenkette, ausgegeben. 
Abschließend werden die Achsen als Eingabehilfe beschriftet. 
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Programmblock: Eingabe des ASCII-Werts 


*% Der ASCII-Wert des zu ändernden Zeichens ist einzugeben. Alle 
Bedienereingaben werden in diesem Programm in der vorletzten 
Bildschirmzeile abgefragt. Hierzu wird die Eingabezeile ge- 
löscht und der Cursor plaziert. 

Die LINE INPUT-Anweisung liest alle Eingaben, auch die Koor- 
dinateneingaben, als Zeichenkette ein. Die VAL-Anweisung wan- 
delt die Koordinateneingabe und den eingegebenen ASCII-Wert 
wieder in einen numerischen Wert um. 

Versehentliche Fehleingaben, die zu der Fehlermeldung: 


"?Redo from start" 


führen, werden hiermit abgefangen. 

Die ON ERROR GOTO-Anweisung wurde programmiert, um auch den 
Punkt als falsche Eingabe auszuschließen. 

Der eingegebene ASCII-Wert wird auf Plausibilität geprüft, da 
Werte kleiner 32 nach der SYMBOL AFTER-Anweisung nicht erlaubt 
sind. 


Programmblock: Ausgabe des Zeichens 

*% Das dem ASCII-Wert entsprechende Zeichen wird in das umrandete 
Feld gesetzt. 

Programmblock: Eingabe der Koordinaten 

* Die eingegebenen Koordinaten des Pixels auf der Matrix werden 
wie bei der Eingabe des ASCII-Werts ausgewertet. Zusätzlich 
wird mit der Anweisung 

IF LEN (X$)=0 THEN ... 

geprüft, ob nur die ENTER-Taste betätigt wurde. Trifft dieses 
zu, so wird zur Abfrage auf Eingabeende gesprungen. 


Mit der Anweisung 


IF X<1 OR X>8 THEN GOSUB ... 


212 


21. Benutzereigene Zeichen definieren 


wird geprüft, ob der eingegebene Wert im zulässigen Bereich von 
Il bis 8 liegt. Liegt die Eingabe nicht in diesem Bereich, so 
wird sie wiederholt und zur entsprechenden Eingabezeile ge- 
sprungen. 

Nach der ersten Eingabe der zweiten Koordinate wird der Text 
"altes Zeichen" durch den Text "neues Zeichen" auf dem Bild- 
schirm ersetzt. 


Programmblock: Punkt auf Matrix setzen 


* Ein bereits gesetzter Punkt kann wieder gelöscht werden. Es 
wird mit der Anweisung 


IF A(X,Y)=1 THEN A(X,Y)=-1 ... 


abgefragt, ob die eingegebene Koordinate bereits als Pixel 
definiert wurde. Ist bereits ein Pixel definiert, so wird er 
gelöscht. 

Der Cursor wird mit der LOCATE-Anweisung auf die angesprochene 
Koordinate gesetzt. Hier wird entweder das Matrix-Karo ausge- 
füllt oder in der Hintergrundfarbe gelöscht. 

Wird ein Karo stellvertretend für einen Pixel gesetzt, so wird 
das Matrix-Raster teilweise gelöscht. Es wird zum Unterprogramm 
"Matrix-Raster zeichnen" gesprungen, um dieses wieder zu ver- 
vollständigen. 


Programmblock: Auswertung der Eingabe 

* Die Parameter für die SYMBOL-Anweisung werden hier berechnet. 
Die ermittelte Potenz entspricht hierbei dem gesetzten Bit 
(Stelle). Vergleichen Sie hierzu Bit und Bytel 

Teil: Zeichen neu definieren 

* Die SYMBOL-Anweisung definiert das neue Zeichen. Die Parameter- 


angabe erfolgt berechnet über den numerischen Wert der 8 not- 
wendigen Byte, die immer eine Zeichenzeile bestimmen. 
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Unterprogramme 
Teil: Zeile unten löschen 


* Dieses Unterprogramm löscht die alte Eingabe, die Eingabezeile 
und plaziert den Cursor an die Eingabeposition. 


Teil: Fehlermeldung ausgeben 


*% Tritt ein Fehler in der Bedienung auf, so wird eine Fehlermel- 
dung in der Eingabezeile ausgegeben. Benutzt wird hierzu das 
Unterprogramm "Zeile unten löschen", 


Teil: Fehlerbehandlung 


* Die ON ERROR GOTO-Fehlerbehandlungsroutine benutzt das Unter- 
programm "Fehlermeldung ausgeben". Mit der Anweisung RESUME 430 
wird der Programmablauf nach der Fehlerbehandlung fortgesetzt. 


Teil: Abfrage auf Eingabeende 


* Mit der Abfrage "Zeichen fertig (J/N)" soll der Abschluß der 
Neudefinition eines Zeichens bestätigt werden. Wird die Abfrage 
mit J für Ja eingegeben, so kann anschließend ein weiteres 
Zeichen neu definiert werden. 

Die Anweisung UPPER$ wandelt die eingegebenen Kleinbuchstaben 
in Großbuchstaben um. Dieses vereinfacht die vorangehende Prü- 
fung vor einer Programmverzweigung. 


Teil: Matrix-Raster zeichnen 
* Mit der DRAWR-Anweisung wird ein Raster auf die Zeichen-Matrix 


gelegt. Optisch werden hiermit die 8 x 8 Pixel eines Zeichens 
nachgebildet, um die Eingabe der Koordinaten zu vereinfachen. 
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Die DRAWR-Anweisung 
Kurzinformation zur DRAWR-Anweisung 


* Die DRAWR-Anweisung zeichnet relativ zur aktuellen 
Graphik-Cursorposition eine Linie. 

* Der Startpunkt der Linie wird bestimmt durch die ak- 
tuelle Graphik-Cursorposition. 

* Die X-Koordinate des Zielpunktes wird durch die X- 
Koordinate der aktuellen Graphik-Cursorposition plus 
der relativen Koordinaten bestimmt. Die Y-Koordinate 
berechnet sich entsprechend. 


Die MOVE-Anweisung 
Kurzinformation zur MOVE-Anweisung 


* MOVE setzt den Graphik-Cursor auf die angegebenen X- 
und Y-Koordinaten. 
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Einführung 


Textverarbeitung wird heute ganz groß geschrieben. Sie finden 
hierzu auf dem Software-Markt eine reichhaltige Palette von un- 
terschiedlich leistungsstarken Programmen. 


In einer Reihe von Fachzeitschriften wurden im letzten Halbjahr 
1984 über fünfzig Textsysteme vorgestellt, getestet, angeboten, 
deren Preis bei wenigen hundert DM begannen und irgendwo bei 
viertausend DM "endeten". 


Es stellen sich die Fragen: 
* Muß ein Textsystem so teuer sein? 
*% Reicht ein preiswertes System nicht auch? 


Es kommt immer darauf an, welche Ansprüche Sie stellen. Das 
Projekt "Text" bietet Ihnen für den >> CPC 464 << ein kostenloses 
Textsystem. Die Einsatzmöglichkeiten sind natürlich beschränkt. 


Es reicht aber vollkommen für Ihre Anwendungsfälle aus, wenn Sie 
nur einfache Standard-Briefe, Formulare oder Rechnungen schrei- 
ben, auf Kassette aufbewahren und von der Kassette für zukünftige 
Zwecke wieder in den Arbeitsspeicher des >> CPC 464 << laden 
wollen. 


Stellen Sie höhere Ansprüche und wollen Sie vielleicht ein Buch 
schreiben, dann sollten Sie sich selbstverständlich auch ein lei- 
stungsfähigeres Textverarbeitungs-System anschaffen. 


Die Grundidee zum Projekt "Text" 


Die Grundidee, die diesem Programm zugrunde liegt, stammt aus dem 
"Großen alphaTronic BASIC-Buch" von B. Bollow und N. Bollow Die 
Einfachheit ist überzeugend und die Leistungsfähigkeit bei sich 
wiederholenden Texten, in denen wenige Änderungen vorzunehmen 
sind, ist beeindruckend. 
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Grundidee: 


BASIC-Programme, die ASCII-gespeichert sind, können als sequen- 
tielle Dateien aufgefaßt werden. Die so abgespeicherten Programme 
können eingelesen, verändert und wieder gesichert werden. 


Ein Programm muß aber nicht zwangsläufig BASIC-Anweisungen ent- 
halten, sondern darf auch nur aus Kommentarzeilen bestehen. Wie 
Sie bereits wissen, enthalten Kommentarzeilen beliebige Texte, 
die aber auch Briefzeilen oder Formularzeilen sein können. 


Besteht ein Programm nur aus Kommentar- bzw. Briefzeilen, so wird 
es im weiteren Text als "Briefzeilenprogramm'' bezeichnet. Wird 
ein Briefzeilenprogramm direkt mit der LIST #8-Anweisung auf dem 
Drucker ausgegeben, so würden die Zeilennummern und der Apostroph 
stören und das gelistete Briefzeilenprogramm wäre noch kein ech- 
ter Brief. 


Das Briefzeilenprogramm muß auf der Kassette in ASCII-abgespei- 
chert werden, damit die einzelnen Kommentarzeilen mit den Brief- 
zeilen als Zeichenketten aufgefaßt und nacheinander einzeln mit 
der LINE INPUT #9-Anweisung von der Kassette in Zeichenkettenva- 
riablen eingelesen werden können. 

Die eingelesenen Zeichenketten können nun mit Stringfunktionen 
zerlegt und die störenden Zeilennummern und der Apostroph ent- 
fernt werden. Die übrigbleibenden Zeichenketten entsprechen da- 
nach den eigentlichen Briefzeilen, die über ein geeignetes Pro- 
gramm mit der PRINT #8-Anweisung ausgedruckt werden können. 


Der Einlesevorgang von der Kassette wird bis zum Textende wieder- 
holt. Geprüft wird das Text- bzw. Briefzeilenprogramm mit der 
EOF-Anweisung. 


Nach diesem Schema reiht sich Briefzeile an Briefzeile und der 
gewünschte Text wird vollständig ausgedruckt. 

Die Bearbeitung der Texte soll mit dem deutschen Zeichensatz 
erfolgen und als Zusatz eine Einfügefunktion vorhanden sein. 
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Programmblöcke des Projekts "Text" 


Aus der Grundideebeschreibung können notwendige Programmblöcke 
und -teile abgeleitet und ihre Reihenfolge bestimmt werden: 


l. Definition des deutschen Zeichensatzes 

2. Schreiben von Texten 

3. Ablegen des Briefzeilenprogramms 

4. Einlesen des Briefzeilenprogramms 

5. Entfernen der Zeilennummern und des Apostrophs 
6. Einfügefunktion 
7. Druckerausgabe 


Definition des deutschen Zeichensatzes 


Im Kapitel "Projekt: Benutzereigene Zeichen definieren" ist die 
Anwendung der beiden BASIC-Anweisungen SYMBOL und SYMBOL AFTER 
vorgestellt worden. Vorausgesetzt werden hier die dort erworbenen 
Kenntnisse. Die einfache Art, eigene Zeichen zu definieren, ist 
leider nicht direkt auf die Tastatur übertragbar. Es entstünde 
eine Vertauschung der gewünschten und unbedingt für die Druckaus- 
gabe vom Zeichensatz des Druckers benötigten ASCII-Werte. 

Die Ausgabe entspricht dann nicht dem deutschen Zeichensatz des 
Druckers. Es muß zunächst mit der KEY DEF-Anweisung eine Umdefi- 
nition der Tasten auf einen anderen ASCII-Wert erfolgen und 
danach den ASCII-Werten die neu definierten Zeichen A, 4, 0,5, 
Ü, ü und ß zugeordnet werden. 


Die KEY DEF-Anweisung 
Kurzinformation zur KEY DEF-Anweisung 


Format: 


KEY DEF <Tastencode>,<repeat>,<ASCII-Wert> 
[»<ASCII-Wert>,<ASCII-Wert> ] 


% Die KEY DEF-Anweisung definiert einzelne Tasten in das vom 
Benutzer gewünschte Zeichen um. 


218 


22. Textverarbeitung mit dem >> CPC 464 << 





* Die neu zu belegende Taste wird im Tastencode, das ge- 
wünschte Zeichen wird mit seinem ASCII-Wert angegeben. 


* Wird für <repeat> eine Null angegeben, so ist die Wieder- 
holfunktion der Taste ausgeschaltet. Ist sie erwünscht, so 
ist anstelle der Null eine Eins zu setzen. 


* Es sind insgesamt drei verschiedene ASCII-Wert Angaben 
möglich. Der erste ASCII-Wert wird ausgegeben, wenn die 
Taste allein gedrückt wird, der zweite, wenn sie in Kombi- 
nation mit der SHIFT-Taste und der dritte angegebene 
ASCII-Wert, wenn die Tastenkombination CTRL plus der Taste 
mit dem vorgegebenen <Tastencode> gleichzeitig gedrückt 
wird. 


Die Tastenbelegung soll der einer deutschen Schreibmaschinenta- 
statur gleichen, d.h. die Tastenbelegung ist: 
Tabelle der Umbelegung 


ASCII-Wert der Taste 





Zeichen Taste mit Tastencode alter neuer 
Ä --> SHIFT plus 17 (123) 9] 
ä --> 17 (91) 123 
öÖ --> SHIFT plus 26 (124) 92 
ö --> 26 (64) 124 
Ü --> SHIFT plus 19 (125) 93 
ü --> 19 (93) 125 
ß --> 24 (94) 126 


Dienstprogramm: "Änderung auf deutschen Zeichensatz" 
Für die schnelle und unkomplizierte Umbelegung der Tasten und für 


die Neudefinition der Zeichen steht Ihnen das nachstehende 
Dienstprogramm zur Verfügung. 
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5 "’Änderungsprogramm für deutschen Zeichensatz 
10 KEY DEF 24,1,126 

20 KEY DEF 26,1,124,92 

30 KEY DEF 17,1,123, 91 

40 KEY DEF 19,1,125,93 

50 SYMBOL AFTER 91 

60 SYMBOL 91,195,60, 102, 102,126, 102, 102,0 

65 SYMBOL 92, 195,60, 102, 102,102, 102,60,0 

70 SYMBOL 93,102,0,102, 102,102, 102, 60,0 

80 SYMBOL 123,108,0,120, 12,124, 204,118, 0 

90 SYMBOL 124,102,0,60, 102,102, 102,60, 0 

100 SYMBOL 125,102,0,102, 102,102, 102,63, 0 
110 SYMBOL 126,60, 102, 102,108, 102, 102, 124,96 


Laden Sie dieses Programm von der Programmkassette ein und star- 
ten Sie es mit der RUN-Anweisung. Der Zeichensatz ist dann imple- 
mentiert. Das Dienstprogramm kann anschließend mit der NEW-Anwei- 
sung gelöscht werden. Die neue Belegung bleibt bis zum nächsten 
Ausschalten des Computers oder bis zur nächsten SYMBOL AFTER- 
Anweisung erhalten. 

Das erste Teil-Programm zum "Projekt: Text" ist hiermit abge- 
schlossen. 


Schreiben von Texten 


Das Schreiben der Textzeilen ist dem Schreiben einer Kommentar- 
zeile in einem Programm gleich, d.h. die Textzeilen werden ohne 
zusätzlichen Programmteil direkt eingegeben. 


Beispiel: 10 ’”Sehr geehrte Damen und Herren, 
20 ° 
30 ”Ihr Angebot vom 30.10.1984 haben wir mit Datum usw. 


Die drei Kommentarzeilen stellen den Anfang eines Anwortbriefes 


dar und können beliebig erweitert werden. Der Umfang ist nur 
durch den Platz im Arbeitsspeicher begrenzt. 
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Mit der BASIC-Anweisung AUTO können Sie die benötigten Zeilennum- 
mern automatisch generieren, so daß lediglich der Apostroph vor 
die Textzeile gesetzt werden muß. 

Ist eine Textzeile beendet, so ist sie mit der ENTER-Taste abzu- 
schließen. Sollten in abgeschlossenen Textzeilen Fehler gefunden 
werden, so sind sie mit der EDIT-Anweisung oder mit der COPY- 
Taste als Programmzeile zu editieren. 

Ist der Text geschrieben, so sollte zur Kontrolle mit der RUN- 
Anweisung geprüft werden, ob ein Apostroph in einer Zeile verges- 
sen wurde. 

Ein fehlender Apostroph wird vom Interpreter als Syntaxfehler 
gemeldet und die entsprechende Zeile auf dem Monitor ausgegeben, 
so daß sie direkt korrigiert werden kann. 


Vorgehensweise bei der Texteingabe 


* Aufrufen der automatischen Zeilenerzeugung im Direktmodus 
mit AUTO 


* Schreiben der einzelnen Textzeilen mit einem Apostroph am 
Anfang! 


* Textzeilen mit ENTER-Taste abschließen! 


* Prüfen der Zeilen mit der RUN-Anweisung 


Ablegen des Briefzeilenprogramms 


Das Briefzeilenprogramm, Ihr Text, kann nach der Prüfung auf der 
Datenkassette abgelegt werden. 


Die Anweisung hierzu ist SAVE und heißt "retten" oder "sichern". 
Dahinter ist in Hochkommata der Name des Programms anzugeben. Der 
Name darf maximal sechzehn Buchstaben lang sein. Am Schluß der 
Anweisung steht noch ein Komma mit nachfolgendem A. Durch diese 
Angabe wird das Programm im ASCII-Modus und nicht binär auf der 
Kassette abgelegt. ASCII-Speicherung ist hier unbedingt erforder- 
lich! 
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Bevor Sie Ihren Text mit der SAVE-Anweisung sichern, sollten Sie 
eine Daten-Compact-Kassette einlegen, da sonst nachfolgende Pro- 
gramme auf der Programm-Kassette überschrieben werden! 


Geben Sie hierzu im Kommandomodus ein: 
SAVE "<Textname>",A 


vergessen Sie aber nicht den Kennbuchstaben "A" für ASCII-Abspei- 
cherung und lesen Sie vorher das Zählwerk an Ihrem Datacorder ab, 
damit Sie sich ein Inhaltsverzeichnis Ihrer Datenkassetten er- 
stellen können. 


Einlesen des Briefzeilenprogramms 


Das Briefzeilenprogramm kann nicht durch einfaches Programmladen 
und Starten als Brief gedruckt werden. Die Kommentarzeilen werden 
dann zwar durchlaufen, aber nicht ausgedruckt, da keine ausführ- 
bare BASIC-Anweisung vorhanden ist. Außerdem sollen die Zeilen- 
nummern, das Kennzeichen der Kommentarzeilen, der Apostroph, 
entfernt und die Markierungszeichen gegen individuelle Eingaben 
ersetzt und danach der Text gedruckt werden. 


Hierzu wird ein BASIC-Programm benötigt, das die Funktionen 


*% Einlesen der abgelegten Programnzeilen 

* Prüfen auf Textende 

*% Suchen des Apostrophs und Entfernen einschließlich der 
Zeilennummer 

* Einfügen individueller Texte an markierten Positionen 

* Einstellen des linken Blattrandes für den Druck 

*% Drucken der Textzeilen 


beinhaltet. 
Alle die genannten Funktionen wurden kompakt in dem nachstehenden 


kleinen BASIC-Programm verwirklicht, das Sie aber auch noch indi- 
viduell erweitern können. 
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Programmlisting 


ext 
9 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
ER" 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
s10 
320 
330 
540 
350 


RRRRRRRRRRRGRGKGKRKGRGGGKGKGOKKOKOKGKKKOROROROKKOKGKKOROKOKOKKOKOK AK 
’x Projekt: TEXT x 
RRRRRRRRRRRRRRRRRRRRRSRRRSRRRRSR,,R,R,R,RE,RE,EKEKEKEKKEKKKKKKKKKKKKKKK 


MODE 2:BORDER O:WINDOW #1,1,80,10,24 
LOCATE 28, 6:PRINT"Projekt TEXT" 
LOCATE 26, 7:FRINT STRING$ (16, "-") 
LOCATE 7,10: PRINT "Bitte legen Sie die Kassette mit Ihrem T 
in den DATACORDER ein":LOCATE 7,11 
FRINT "und spulen Sie diese an die entsprechende Stelle!" 
LOCATE 7,13 

INFUT "Drücken Sie danach die ENTER-Taste. ",enter$ 

CLS #1:LOCATE 7,10 

FRINT "Geben Sie bitte den Textnamen ein!" 

LOCATE 7,12: INPUT "Textname ";F$ 

CLS #1:LOCATE 7,10 

INPUT "Linker Rand auf Spalte .. ",SFALTE 

IF SFALTE <i1 OR SFALTE >60 THEN 150 

CLS #1:LOCATE 7,10 

FRINT "Drücken Sie nun die Taste ’FLAY’ auf Ihrem DATACORD 


LOCATE 7,12:PRINT "und danach die "; 

INFUT "ENTER-Taste. ",ENTER$ 

FOR I=0 TO s4:READ X$(I):NEXT I 

DATA "Tagesdatum ı ","Anrede a 

DATA "Rechnungsbetrag: ","Rechnungsdatum : " 

DATA "Sorte ı ","Liefertermin Al, 

DATA "Zahlungstermin : " 

CLS #1:L=0:0FENIN "!"+F$ 

LINE INFUT #9, A$:’Zeile aus Text einlesen 

B=1INSTR (A$,"’"):A$=MID$ (A$,B+i) 

Z=INSTR(A$, "kkk"):’Feststellen, ob Zeile Textlücken hat 
IF Z=0 THEN 360: ’Keine Textlücke; Zeile ausdrucken 
FRINT #1, X$(L)5 :L=L+1 

LINE INFUT #1,B$ 

A$=LEFT$ (A$, Z-1) +B$+MID$ (A$, Z+3) 

GOTO 300: ’Noch weitere Textlücken in derselben Zeile” 
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360 PRINT #8, TAB(SFALTE) ;A$ 

370 IF EOF THEN 390 

380 GOTO 280’Nächste Textzeile bearbeiten 

390 CLOSEIN 

400 CLS #1:PRINT #8, CHR$ (12); 

410 INPUT #1," Weiterer Text J/N";ANTW$ 

420 IF UFPER$(ANTW$)="J" THEN CLS #1:RESTORE:GOTO 80 

430 MODE 1 

440 END’ kkXkk Frogr ammende KKKKK 


Einige neue BASIC-Anweisungen finden Sie in dem Programmlisting, 
die in Kurzinformationen erläutert werden sollen. 

Einlesen der abgespeicherten Programmzeilen 

In Zeile 270 finden Sie die OPENIN-Anweisung: 


270 ... OPENIN "!"+F$ 
Die OPENIN-Anweisung 


Kurzinformation zur OPENIN-Anweisung 


* OPENIN eröffnet einen Datenfile, legt einen Datenpuf- 
fer von 2 k an und liest die abgespeicherten Daten als 
Datenblöcke von Kassette mit dem laufenden Programm 
ein. 


* Falls der erste Buchstabe des Dateinamens ein Ausrufe- 


zeichen "!" ist, werden keine Anweisungen zur Bedie- 
nung des Datacorders auf dem Monitor ausgegeben. 


Die nachstehende Variable F$ übergibt im konkreten Fall den 
Textnamen an die OPENIN-Anweisung. 
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Prüfen auf Textende 


Wird von der Kassette eine Datei, in diesem Fall eine Textdatei, 
eingelesen, so muß das Dateiende abgefragt werden. 


Die entsprechende Anweisung hierfür steht in Zeile 370: 


370 IF EOF THEN 390 


Die EOF-Anweisung 
Kurzinformation zur EOF-Anweisung: 


* Mit EOF wird das Dateiende abgefragt. Wird das Dateiende 
erreicht, so ergibt diese Funktion den Wert -| (wahr). 


* EOF muß vor jeder erneuten LINE INPUT #9-Anweisung abge- 
fragt werden, da sonst bei Dateiende die Fehlermeldung '"EOF 
met in <Zeilennummer>" ausgegeben wird und ein Programmab- 
bruch erfolgt. 


Wenn das Dateiende erreicht ist, wird mit der IF THEN-Anweisung 
zur Zeile 390 verzweigt. Ist das Textende erreicht, so muß die 
eröffnete Datei mit der CLOSEIN-Anweisung in Zeile 390 wieder 
geschlossen werden. 

Die CLOSEIN-Anweisung 


Kurzinformation zur CLOSEIN-Anweisung: 


* Die CLOSEIN-Anweisung schließt einen Eingabefile vom 
Datacorder, der vorab mit OPENIN eröffnet wurde. 


*% Ohne vorherige CLOSEIN-Anweisung kann kein neuer 
Eingabefile mit OPENIN eröffnet werden. 


* Außerdem schließt die END-Anweisung alle eröffneten 
Files. 


225 


22. Textverarbeitung mit dem >> CPC 464 << 


Die weiteren Programmfunktionen "Apostroph suchen", "Ersetzen von 
Markierungszeichen gegen individuelle Texte" werden über Ihnen 
bereits bekannte Stringfunktionen verwirklicht. 


Wiederholung Zeichenkettenfunktionen 
Die INSTR-Anweisung 


Mit dieser Anweisung können bestimmte Zeichen oder Zeichenfolgen 
in einer Zeichenkette, einem String, gesucht werden. 


INSTR(X$,Y$) 


Der Suchbegriff, also die gesuchte Zeichenfolge ist in Y$ enthal- 
ten. Im String X$ wird die Zeichenfolge Y$ gesucht. 


x$ und ebenso Y$ können String-Variablen, String-Konstanten oder 
String-Ausdrücke sein. Die Funktion INSTR liefert das Ergebnis 
Null, wenn Y$ nicht gefunden wird oder die Länge von X$ gleich 
Null ist. 


Die MID$-Anweisung 
Hiermit kann ein Teil einer Zeichenkette bearbeitet werden. 
MID$(x$,I) 


überträgt die Zeichenkette X$ beginnend mit dem I-ten Zeichen. I 
kann Werte zwischen O0 und 255 annehmen. Ist I größer als die 
gesamte Zeichenkette X$, so wird ein String der Länge 0 (Null) 
übertragen. 


MID$(X$,I)= Y$ 


Die Zeichenkette X$ wird vom I-ten Zeichen an durch die Zeichen- 
kette Y$ ersetzt. Alle Zeichen von Y$ werden übertragen, falls X$ 
lang genug ist. 

Die Kombination dieser kurz wiederholten String-Anweisungen er- 
laubt in dem Programm das Suchen und Ersetzen. 
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Apostroph und Zeilennummer entfernen 

In der Zeile 290 wird die Stelle gesucht, auf der in der jeweils 

bearbeiteten Zeile des Briefzeilenprogramms der Apostroph steht. 

Mit der MID$-Anweisung wird der Inhalt der Zeichenkettenvariablen 

A$ in folgender Weise verändert: 

*% Der Apostroph steht auf der Position, die durch die Anweisung 

B=INSTR(A$,"’") 
ermittelt und an die numerische Variable B übergeben wird. 

*% Alle Zeichen rechts vom Apostroph, mit der Stelle B + | begin- 
nend, werden in der Zeichenkettenvariablen A$ linksbündig abge- 
legt. Hierdurch wird der Inhalt der Variablen A$ nach links 
verschoben. 

Auf diese Weise wird zeilenweise die Anweisungsnummer und der 

Apostroph aus jeder Zeile des Briefzeilenprogramms entfernt. Die 

Programmzeilen werden damit zu Briefzeilen! 

Beispiel: 

Aus der Kommentarzeile 

1l0O ”Sehr geehrte Damen und Herren, 
werden entfernt: 
l. Die Anweisungsnummer 10 
2. Das folgende Leerzeichen 
3. Der Apostroph. 


In der Zeichenkettenvariablen A$ finden Sie jetzt den Text: 


Sehr geehrte Damen und Herren 
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Einfügen individueller Texte an markierten Positionen 


In fast allen Anwendungsfällen gibt es "Lücken" im Brieftext, die 
man für jeden Briefempfänger individuell ausfüllen möchte. 


Anwendungsbeispiel 


Nehmen Sie z.B. eine im ASCII-Modus gespeicherte "Mahnung". 


10 "TEUFEL %& PARTNER 

20 ° 

30 ”Holzkohlengroßhandlung 
40 ’Engelstraße & 

50 °’4712 Hexenhausen 2 


70° 

80 ’Ihr Zeichen Unser Zeichen Bestellung Datum 
0° 

100 ’KQ SW/FS Brennstoff KK 


130 "Sehr geehrtekkk 


150 "unsere Rechnung über %kk%k DM 

160 "vom kkX ist inzwischen fällig. 

170 ’Der Rechnungsbetrag ergibt sich aus einer %kk - Lieferung 
180 "vom xxk 


200 "Wir bitten Sie, den ausstehenden Betrag bis zum Xk%kk 

210 ’zu überweisen. 

220 

230 ’Falls sich unser Schreiben mit Ihrer Überweisung kreuzte, 
240 "betrachten Sie dieses Schreiben als gegenstandslos. 

250 ° 

260 ° 

270 *Mit freundlichen Grüßen 
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Vorüberlegungen: 

* Der Druck soll immer dann anhalten, wenn '***' gefunden wird. 

*% Der einzusetzende Text soll abgefragt und eingelesen werden. 
Gesucht wird die einzelne Einfügeposition nach dem gleichen Sche- 
ma, wie bei dem Suchen des Apostrophs. Mit der MID$- und RIGHT$- 
Anweisung wird in Zeile 340 der eingegebene Text an der Position 


der Markierungszeichen in die Textzeile eingefügt. 


Der ausgedruckte Mahnbrief: 


TEUFEL & PARTNER 
Holzkohlengroßhandlung 
Engelstraße 6 

4712 Hexenhausen 2 


Ihr Zeichen Unser Zeichen Bestellung Datum 


KQ SW/FS Brennstoff 5.8.84 


Sehr geehrter Herr Engel 

unsere Rechnung über 725.88 DM 

vom 8.4.1984 ist inzwischen fällig. 

Der Rechnungsbetrag ergibt sich aus einer Koks - Lieferung 
vom 5.4.1984 


Wir bitten Sie, den ausstehenden Betrag bis zum 19.8.1984 
zu überweisen. 


Falls sich unser Schreiben mit Ihrer überweisung kreuzte, 
betrachten Sie dieses Schreiben als gegenstandslos. 


Mit freundlichen Grüßen 
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Zu beachten sind die Abfragen der Ergänzungen. Diese Abfragen 
erleichtern die Eingabe und helfen die markierten Einfügepositio- 
nen als Textlücke im Standardtext auszufüllen. 


Fest vorgegeben sind in dem Beispieltext: 


Textlücke Ergänzung 

x (] Tagesdatum 

kkk (2) Anrede 

*kkk (3) Rechnungsbetrag 
*kkk (4) Rechnungsdatum 
kkk (5) Sorte 

xkk (6) Liefertermin 
*kkk (7) Zahlungstermin 


Diese Ergänzungen können individuell gesetzt und geändert werden. 
Die Anzahl der Ergänzungen ist ohne Dimensionierung von X$ auf 
elf beschränkt. 


Drucken der Textzeilen 


Die Textzeilen werden mit der PRINT #8-Anweisung über die paral- 
lele Schnittstelle zum Drucker ausgegeben. Damit der linke Blatt- 
rand einstellbar ist, wurde eine Abfrage für den Wert program- 
miert. Sie finden die Abfrage in Zeile 160 und die dazugehörige 
Anweisung in Zeile 360: 


360 PRINT #8,TAB(SPALTE);A$ 
Die Variable A$ enthält die zu druckende Textzeile. 
Das "Projekt Text'' ist nun vorgestellt und Sie können ausprobie- 


ren, ob es für Ihre Standardtexte ausreichend ist, oder ob ein 
professionelles Textprogramm angeschafft werden muß. 
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Einführung 


Daten als Datensätze in Feldern abzulegen, zu sichern, zu sortie- 
ren und in der gewünschten Reihenfolge gezielt wieder auszugeben, 
alle diese Punkte der Datenver- und -bearbeitung sind in den 
letzten Kapiteln schon besprochen und von Ihnen erarbeitet. 


In dem hier vorgestellten Projekt "Kartei" sollen die genannten 
Manipulationen von Daten, kombiniert zu einem Adressverwaltungs- 
bzw. zu einem Karteiprogramm, zusammengefaßt werden. 


Das Projektprogramm "Kartei" ist so konzipiert, daß es 


*% Ihnen Anregungen für eigene individuelle Karteipro- 
gramme, 


* eine von vielen möglichen Lösungen für eine Adress- 
verwaltung und 


* alle denkbaren Erweiterungen bietet. 
Das Projekt "Kartei" soll exemplarisch am konkreten Beispiel 
Erfahrungen vermitteln, die übertragbar auf andere Dateiprogramme 
mit anderen Inhalten und Namen sind. 
Außerdem werden Sie damit das Basiswissen für den Themenbereich 
"Dateien und Diskettenstation", der in einem weiteren Buch aus 
der Edition HEIM zum >> CPC 464 << aufgegriffen wird, erlangen. 
Das Projekt: "Kartei" 


Die Leistungsmerkmale des Kartei-Programms 


Vorgestellt wird für Ihre private oder geschäftliche Nutzung eine 
Adressverwaltung mit den Leistungsmerkmalen: 


* Verwaltung von bis zu 200 Adressen 
* Menütechnik für die Benutzerführung 
* Eingabe der Adressen im Dialog 

* Verarbeiten der Sonderzeichen 
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* Sichern der Adressen auf dem Datacorder 

* Einlesen von gespeicherten Adressdateien 

* Suchen von Adressen nach frei wählbaren Suchbegriffen 
%* Blättern der Adresskartei 

* Löschen von einzelnen Adressen 


Realisiert wurde das Karteiprogramm mit Ihnen bekannten BASIC- 
Anweisungen, damit das Hauptaugenmerk auf den Programmablauf 
gelegt und hierdurch von Ihnen eine unkomplizierte Modifizierung 
des Programms vorgenommen werden kann. 


Das umfangreiche Programm ist komplett als Programmlisting abge- 
druckt. Sie sollten aber, um Tippfehler zu vermeiden, dem Einle- 
sen des Karteiprogramms von der Programmkassette den Vorzug ge- 
ben. 

Probieren Sie nun das Programm "Kartei" mit Ihren Daten zuerst 
einmal aus. 


Hinweise zum ersten Menü 


Hierzu einige zusätzliche Hinweise zu dem vom Programm ausgegebe- 
nen ersten Menü: 


* Wählen Sie den gewünschten Programm-Teil durch Eingabe einer 
Kennziffer. In Ihrem Fall ist es die Kennziffer |, da noch 
keine Adressdatei existiert. 


* Nach der Eingabe der Kennziffer erscheint das zweite Menü, in 
dem die einzugebende Adresse abgefragt wird. Die Eingaben sind, 
wie Sie es bereits von anderen Programmen her kennen, korri- 
gierbar, solange nicht die Eingabe mit der ENTER-Taste abge- 
schlossen ist. 


Weitere Erläuterungen sind nicht notwendig, da innerhalb des 
Programms zu jedem Programmteil entsprechende Benutzerhinweise 
ausgegeben werden. 
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Programmlisting 


10 


100 
110 


’KERKKKKKKKKKEKKKKKKKKKEKKKKIKKKKEKK 

’x Karteiprogr amm x 
’KEKKKKKKKKEKKKKKKKKKKKKKKKKKEKEKEKK 

xxx Dimensionierung KKKKKKKKKKKKKK 

DIM A$(200,5) 

LZEIL=1:5=199 

’xxxk Bildschirmeinstellung XKKKKK 

MODE 1:PRINT STRING$ (39,154) 

WINDOW #1,1,40,8,21:WINDOW #2,1,40, 24, 25:WINDOW #3,1,40,4,6 
WINDOW #4, 1,40, 25,25:WINDOW #5,1,40, 20,20 
LOCATE 9,2:PRINT"X%k Karteiprogramm KKk" 


120 PRINT STRING$ (39, 154) 
130 LOCATE #2,1,1:PRINT#2, STRING$ (39,154) 


140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


’kkk Hilfstexte einlesen KKKKKKKKKK 
RESTORE:FOR I=1 TO 5:READ TEXT$(I):NEXT I 
DATA "Vorname „...:","Nachname .„.:" 

DATA "Strasse ...ı","PLZ Ort „...2","Tel. zooo..3" 
’xkk Befehlseingabe KKKKKKKRKKKEEKK 

GOSUB 15330’---Befehlsliste ausgeben 
T$=INKEY$: IF T$<"1" OR T$>"6" THEN 200 

ON VAL(T$) GOSUB 240,480, 740,890, 1000, 1170 
GOTO 190 

’* Programmteil: Adresseneingabe X 

ECLS #1: LOCATE #3,6,2 

PRINT#3, "Frogrammteil: Adresseneingabe" 

IF LZEIL<{=5 THEN 360 


FOR I=1 TO LZEIL’----freie Stelle suchen 


IF A$(1,1)<>"" THEN 310 

FOR K=2 TO S:IF A$(I,K)<>"" THEN 310:NEXT K 
GOTO 380 

NEXT I 


CLS #4:L0CATE #4, 9,1 
PRINT #4,"Der Speicher ist belegt! "CHR$(7) 
FOR i=1 TO 1500:5NEXT I:CLS #3: RETURN 
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350 °------ Adresseneingabe --------- 

560 I=LZEIL:LZEIL=LZEIL+1 

370 CLS #4:L0CATE #4,5,1 

580 PRINT #4, "kkk Bitte Adresse eingeben XXxX" 

390 FOR K=1 TO 5 

400 LOCATE #1,4,2+2% (K-1) PRINT #1, TEXT$(K) 

410 NEXT K 

420 FOR K=1 TO 5 

430 LOCATE #1,16,2+2&(K-1):LINE INFUT #1,A$(I,K) 

440 NEXT K 

450 IF A$(1,92<>"" THEN A$(1,5)="Tel.: "+A$(1,5) 

460 CLS #3:CLS #1:RETURN 

470 ’% Programmteil: Adr.-Teil suchen X 

480 CLS #1:CLS #3 

490 LOCATE #3,7,2:PRINT #3, "Programmteil: Adressen-Suchen" 
500 LOCATE #5,7,1:PRINT #5, "Suchen nach Kennziffer: " 
S10 FOR I=1 T0 5 

520 LOCATE #1,7,2+2%(i-1):PRINT #1,TEXT$(I) I 

530 NEXT I 

540 T$=INKEY$: IF T$<"1" OR T$>"5" THEN 540: Eingabe 
550 LOCATE #4, 13, 1: FRINT#4, "Suchbegriff" 

560 K=VAL(T$):CLS #5: L0OCATE #5,7,1:PRINT #5, TEXT$(K); 
570 LINE INPUT #5, T$:CLS #1 

580 INDEX1=1:’----- Suchen des Teils ---- 

590 FOR I=INDEX1 TO LZEIL 

600 IF INSTR(A$(I,K),T$)<>0 THEN 650 

610 NEXT I 

620 LOCATE #2,5,2 

630 PRINT #2,"xk% Suchwort nicht gefunden! XKK"CHR$ (7) 
640 FOR I=1 TO 1500: NEXT I:CLS #3: RETURN 

650 LOCATE #1,4,2:FRINT#1,A$(I,1)" "A$(1,2):’Ausgabe 
660 FOR L=3 TO 5:LOCATE #1,4,L:PRINT#1,A$(I,L)SNEXT L 
670 CLS #4:L0CATE #4,5,1:PRINT #4, "Richtige Adresse J/N ?" 
680 T=INKEY(45): IF T=-1 AND INKEY(46)=-1 THEN 680 
690 IF T=-1 THEN 720 

700 IF INKEY(45)<>-1 THEN 700 

710 Z=1:RETURN’----- richtige Adresse 

720 CLS #1: INDEXi=1+1:60T0 590 
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740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
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’% Programmteil: Kartei blaettern k& 
CLS #1:CL5 #3:LOCATE #3,4,2 
PRINT#3, "Programmteil: Kartei blaettern" 
CLS #4:LOCATE #4,10,1:PRINT #4, "Weiter J/N ?" 
FOR I=1 TO LZEIL-1 

IF A$(I,1)="" AND A$(1,2)="" THEN 840 
LOCATE #1,4,2:PRINT#1,A$(I,1)" "A$(1,2) 
FOR L=3 TO 5:LOCATE #1,4,L:PRINT#1,A$(I,L):NEXT L 
T=INKEY (45): IF T=-1 AND INKEY(46)=-1 THEN 810 
IF T=-1 THEN 850 
ELS #1 
NEXT I 

CLS #4: LOCATE #4, 13,1 

PRINT #4,"Kartei - Ende! "CHR$(7) 
FOR L=1 TO 1500:NEXT L:RETURN 

’% Programmteil: Adr. loeschen x 

CLS #1:L0CATE #3,6,2 
PRINT#3, "FProgrammteil: Adressen loeschen" 
2=0:G05UB 500 

IF Z<>1 THEN RETURN 

CLS #4:LOCATE #4,5,1 
PRINT#4, "Loeschen J/N ?" 

T=INKEY (45): IF T=-1 AND INKEY(46)=-1 THEN 950 
CLS #4: IF T=-i THEN RETURN 
FOR K=1 TO S:A$(I,K)="":NEXT K 
CLS #1: RETURN 

’* FProgrammteil: Adr. speichern X 

CLS #1:CLS #3:CLS #4 

FRINT#3, "Frogrammteil: Adressen speichern" 
LOCATE #4,5,1:PRINT#4, "Fuer Abbruch bitte XXX eingeben" 
LOCATE #1,4,2 

PRINT #1, "Druecken Sie die Tasten REC und PLAY." 
LOCATE #1,4,4 

PRINT #1,"Geben Sie dann den Karteinamen ein." 
LOCATE #1,4,10: INPUT #1, "Karteiname ?",T$ 

IF UFPER$(T$)="XXX" THEN RETURN 

CLS #4:LOCATE #4,4,1 

FRINT#4, "Kartei ";T$" wird gespeichert" 
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1110 
1120 
1130 
1140 
1150 
1160 
1170 


1180 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 


T$="!"+T$:0OPENOUT T$ 

FOR I=1 TO LZEIL 

FOR K=1 TO SıWRITE #9, A$(I,K)ıNEXT K 

NEXT I 

CLOSEQUT:CLS #13 RETURN 

’%* Programmteil: Adr. einlesen x 

LZEIL=1:CLS #1:CLS #4 

ELS #3:LOCATE #3,4,2 

PRINT#3, "Programmteil: Adressen einlesen" 

LOCATE #4,5,1:PRINT#4, "Fuer Abbruch bitte XXX eingeben" 
LOCATE #1,4,2:PRINT #1, "Druecken Sie die Taste FLAY." 
LOCATE #1,4,4 

PRINT #1, "Geben Sie dann den Karteinamen ein." 

LOCATE #1,4,10:1NPUT #1,"Karteiname ? ",T$ 

IF UPPER$(T$)="XXX" THEN RETURN 

CLS #4:L0OCATE #4,4,1:PRINT#4, "Kartei ";T$" wird gesucht" 
T$="!"+T$:0PENIN T$ 

IF EOF THEN 1310 

FOR K=1 TO S5:INPUT #9, A$(LZEIL,K):NEXT K 
LZEIL=LZEIL+1:60TO 1280 

CLOSEIN:CLS #1:CLS #4: RETURN 

’% Befehlsliste ausgeben XKKKKEK 

RESTORE 1330:CLS #3 

ELS #1:L0CATE #1,7,1:PRINT #1,"M EN U E" 

FOR I=1 TO s:READ TEXT$ 

LOCATE #1,7,3+2% (1-1) :PRINT#1, TEXT$ 

NEXT I:CLS #4 

LOCATE #4,7,1:FRINT #4, "Bitte Kennziffer eingeben!" 
RETURN 


DATA "Adresse eingeben ...... 2." 
DATA "Adressen-Teil suchen ..: 2" 
DATA "Kartei blaettern ......: 3" 
DATA "Adresse loeschen ......: 4" 
DATA "Adressen speichern .„...: 5" 
DATA "Adressen einlesen ..... ı 6" 
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Programmblöcke des Karteiprogramms 
Hilfen für die Analyse des Programms 


Sie finden anhand der Kommentarzeilen die Programmblöcke: 


Programmblöcke Zeilenbereich 
* Dimensionierung 50 - 60 
* Bildschirmeinstellung 80 - 130 
* Hilfstexte einlesen 150 - 170 
* Befehlseingabe 190 - 220 
* Adresseneingabe 240 - 460 
* Adressenteil suchen 480 - 720 
* Kartei blättern 740 - 870 
* Adressen löschen 890 - 980 
* Adressen speichern 1000 - 1150 
* Adressen einlesen 1170 - 1310 
*% Befehlsliste ausgeben 1330 - 1450 


Kurzinformationen zu den Programmblöcken 


Dimensionierung 


* Definiert wird ein zweidimensionales Feld mit 200 x 5 Feldele- 
menten. Die Anzahl der Feldelemente kann durch die entsprechen- 
de Änderung bei der DIM-Anweisung bei einer durchschnittlichen 
Adressenlänge von insgesamt 100 Zeichen pro Adresse auf 400 x 5 
erhöht werden. 

Außerdem muß die Variable S in der Zeile 60 auf 399 abgeändert 
werden. 


Bildschirmaufbau 
* Insgesamt fünf Bildschirmfenster werden mit den fünf WINDOW- 


Anweisungen definiert und eine graphische Gestaltung vorgenom- 
men. 
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Hilfstexte einlesen 


* 


Die Hilfstexte für die Menüs werden aus DATA-Zeilen in die 
Feld-Variable TEXT$(I) eingelesen. 


Befehlseingabe 


* 


Die eingegebene Kennziffer wird mit INKEY$ abgefragt. Sie wird 
eingelesen und auf Plausibilität geprüft. Die ON GOSUB-Anwei- 
sung bewirkt den von der Kennziffer abhängigen Aufruf des 
angewählten Programteils. 


Adresseneingabe 


* 


Vorab wird mit der Anweisung 
IF LZEIL<=S THEN 360 


in Zeile 260 geprüft, ob der letzte mögliche Adressenplatz des 
dimensionierten Feldes bereits belegt ist. Ist das der Fall, so 
wird nach einem freien Adressenplatz in dem dimensionierten 
Feld gesucht. Gefunden wird ein freier Platz in diesem Fall nur 
dann, wenn zuvor eine Adresse gelöscht wurde. Wurde keine 
Adresse gelöscht, also kein freier Platz gefunden, so erscheint 
die Meldung "Der Speicher ist belegt!". 

Wird dagegen bei der Suche ein freier Patz gefunden, so kann 
eine weitere Adresse eingeben werden. 


Adressenteil suchen 


* 


Es kann gezielt nach einem bestimmten Adressenteil gesucht 
werden. Wird er gefunden , so wird die gesamte Adresse ausgege- 
ben. 

Die kurzen Zugriffszeiten entstehen durch ein gezieltes Suchen 
mit der INSTR-Anweisung allein bei den vorhandenen Inhalten der 
dem Adressenbereich zugehörigen Feldvariablen. 
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Kartei blättern 


* Die Reihenfolge richtet sich nach der Eingabefolge der Adres- 


sen, d.h. die zuerst eingegebene Adresse erscheint zuerst. Eine 
Unterbrechung des Blätterns ist über die INKEY-Anweisung reali- 
siert. Die Ausgabe der Adressen erfolgt, ähnlich einer Kartei- 
karte, einzeln, so daß hier die Grundforderung an ein "anseh- 
bares" Karteiprogramm mit einem stehenden Bildschirm erfüllt 
ist. 

Eine alphabetische Sortierung ist eine denkbare Erweiterungs- 
möglichkeit, die Sie unproblematisch einbinden können. Die 
erforderlichen praktischen Hinweise finden Sie hierzu in dem 
Kapitel "Sortieren von Zahlen und Zeichenketten". 


Adressen löschen 


* 


Das Unterprogramm "Adressen suchen" wird hierbei mit einbezo- 
gen, so daß die zu löschende Adresse zunächst gesucht, dann 
abgefragt und, falls gewollt, gelöscht wird. Den Feldelementen 
der Adresse werden hierbei je ein "Nullstring" zugeordnet, so 
daß die vorherigen Inhalte überschrieben werden. 


Adressen speichern 


* 


Die OPENOUT-Anweisung in Zeile 1110 eröffnet einen Datenfile 
für die Ausgabe auf dem Datacorder. Hierbei wird ein Puffer von 
2 k angelegt, in dem die Datensätze vor der Ausgabe auf dem 
Datacorder zwischengespeichert werden. 

Das Ausrufezeichen "!" vor dem Dateinamen unterdrückt die eng- 
lischen Hinweise für den Datacorderbetrieb auf dem Bildschirm. 


Das Schreiben der Daten geschieht mit der Anweisung: 
WRITE #9,A$(I,K) 
Hiermit wird der Inhalt der Variable A$(I,K) in den Puffer 


geschrieben. Ist er gefüllt, so werden die Datensätze auf der 
Kassette abgelegt. 
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Die CLOSEOUT-Anweisung leert den Puffer vor dem Programmende. 
Die zwischengespeicherten "Rest-Daten" würden ohne diese Anwei- 
sung nicht abgespeichert und es könnte keine neue Adressdatei 
eröffnet werden. 


Adressen einlesen 


* 


Die Datei wird mit der INPUT #9-Anweisung eingelesen und mit 
der OPENIN-Anweisung ein Puffer angelegt. Die Datensätze werden 
blockweise eingelesen. Die EOF-Anweisung in Zeile 1280 fragt 
vor der INPUT #9-Anweisung das Dateiende ab. 

Die eröffnete Datei wird nach dem Lesevorgang mit der CLOSEIN- 
Anweisung geschlossen. 


Befehlsliste ausgeben 


* 


Die Texte für das Haupt-Menü werden aus DATA-Zeilen eingelesen 
und mit LOCATE-Anweisungen auf dem Bildschirm positioniert. 
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Einführung 


Ein oder auch mehrere Fehler in einem Programm sind bei der 
Programmentwicklung fast eine Normalität. Die Fehler können ei- 
nerseits nützlich, andererseits aber sehr lästig sein. Nützlich, 
weil aus jeder Fehlerbeseitigung neue Erkenntnisse abgeleitet 
werden können, die der eigenen Programiererfahrung und somit den 
späteren Programmen zugute kommen. 


Lästig, da der Zeitaufwand und die Enttäuschung groß sein kann, 
wenn ein kreiertes Programm nicht "läuft". Häufig handelt es sich 
hierbei nicht um logische Programmfehler, sondern im nachhinein 
so trivial erscheinende, daß sie vermeidbar gewesen wären. 


Soft- und Hardware Fehler 


Hier sind zunächst vier unterschiedliche Fehlerarten zu unter- 
scheiden: 


Fehlerarten: 
* Syntax - Fehler > Software-Fehler 
* Fehler in der Programmlogik > Software-Fehler 


* Fehler durch den Programmbenutzer > Software-Fehler 


* Fehler der Technik > Hardware-Fehler 


Ein Syntax-Fehler liegt immer dann vor, wenn eine BASIC-Format- 
Vorgabe nicht beachtet wird, z.B. wenn REED anstelle von READ 
geschrieben wird, oder wenn beim Setzen von Klammern die Zahl der 
öffnenden Klammern mit der Zahl der schließenden Klammern nicht 
übereinstimmt. 
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Logische Programmfehler können z.B. Sprünge in eine FOR NEXT- 
Schleife sein, nicht mit RETURN abgeschlossene Unterprogramme 
oder aber auch eine WHILE WEND-Schleife, deren Bedingung niemals 
erfüllt, d.h. "true" werden kann. 


Diese zwei Fehlerarten werden meist während der Testphase des 
Programmes erkannt und beseitigt. Das ist für die Lauffähigkeit 
eines Programms absolute Vorbedingung. 


Fehler, die durch den Programmbenutzer bzw. bei der Nutzung des 
Programms auftreten, lassen auf eine zu kurze Testphase oder auf 
eine Nichtbeachtung aller Programmöglichkeiten schließen. Diese 
Fehlerart ist häufig anzutreffen, wenn z.B. Benutzereingaben 
über die Tastatur in das laufende Programm gefordert werden. Hier 
hilft nur eine sorgfältige Prüfung aller denkbaren Programmvor- 
gänge. 


Hardware-Fehler sind die problematischsten, da sie meistens nicht 
eigenhändig behoben werden können und zu einem unerwarteten Ab- 
bruch der Programmierarbeit führen. 


Die einfachste, denkbare Fehlerursache ist hierbei ein Netzaus- 
fall oder das Durchbrennen einer Sicherung im Terminal oder in 
der Peripherie des Computers. 


Ihr >> CPC 464 << wertet die oben genannten "Software-Fehler" aus 
und meldet die meisten davon dem Programmierer durch Ausgabe 
einer Fehlermeldung. 

Um Ihnen sämtliche originale Fehlermeldungen auch auf dem Monitor 
zu bieten, wurde ein Programm erstellt, das nacheinander alle 
diese Fehlermeldungen ausgibt. 


Das BASIC-Programm finden Sie auf der nächsten Seite. 
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Programm: "Fehlermeldungen des >> CPC 464 <<" 


10 REM FROGRAMM GIBT ALLE MOEGLICHEN 

20 REM FEHLERMELDUNGEN VOM >>CEFPC 454<< 
30 REM AUF DEM MONITOR AUS 

40 CLS 

50 MODE i 

60 LOCATE 5,2 

70 FRINT "xXk%k Alle Fehlermeldungen K%%k%k 


80 LOCATE 2,4 

90 PRINT "Bitte Punkt im Ziffernblock dr 
uecken!" 

100 LOCATE 2,23 

110 PRINT "Bei Fehler 2 bitte ESC-Taste 
druecken!" 

120 i=O 

130 KEY 138, "goto 140"+CHR#% (13) 

140 i=i+i 

150 WINDOW #2,3,40, 10,20 

160 CLS #2 

170 LOCATE #2,5,1 

180 PRINT #2, "Fehler Nr."I 

190 WINDOW SWAF 0,2 

200 LOCATE 1,4 

210 ERROR i 


Sie konnten während des Programmablaufs erkennen, daß neben der 
Fehlermeldung auch eine Fehlernummer ausgegeben wurde. Diese 
Fehlernummer ist der entsprechenden Fehlermeldung fest zugeord- 
net, so daß z.B. Fehlernummer 6 die Fehlermeldung "Overflow in 
<Zeilennummer>'" eindeutig kennzeichnet. 


Unter BASIC kann die Fehlernummer in einer Fehlerbehandlungsrou- 
tine mit der ERR-Anweisung abgefragt werden. Die ERL-Anweisung 
ermittelt die Zeilennummer, in der der Fehler aufgetreten ist, so 
daß über beide Angaben ein Beheben des Fehlers durch das Programm 
selbst möglich wird. 
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Nachfolgend finden Sie aufgeführt: 
*% Alle Fehlermeldungen mit der dazugehörigen Fehlernummer 
* Die Bedeutung bzw. die Übersetzung der Fehlermeldung 
%* Eine Erläuterung zur Entstehung eines Fehlers 
*% Programmbeispiele, die eine Fehlermeldung erzeugen 
* Querverweise zu BASIC-Anweisungen 
Falls in Ihrem Programm eine Fehlermeldung erscheint, so sollten 


Sie diesen Teil des Buches unbedingt nutzen, um den Fehler mög- 
lichst schnell lokalisieren und beheben zu können. 


Liste der Fehlercodes 


Fehlernumer: | 

Fehlermeldung: "Unexpected NEXT in <Zeilennummer>" 

Bedeutung: NEXT wurde ohne dazugehörige FOR-Anweisung ge- 
funden. 

Erläuterung: 

Diese Fehlermeldung tritt auf, wenn die zur NEXT-Anweisung zuge- 

hörige Laufanweisung FOR nicht programmiert wurde. Eine weitere 

Ursache für diese Fehlermeldung kann ein Hineinspringen in die 


FOR NEXT - Schleife sein, z.B. mit der GOTO-Anweisung. 


Vergleichen Sie hierzu: FOR NEXT 


244 


24. Fehlermeldungen und Fehlercodes 


Fehlernumer: 2 
Fehlermeldung: "Syntax error in <Zeilennummer>" 


Bedeutung: BASIC-Schreibfehler 


Erläuterung: 


Ein Syntaxfehler wird gemeldet, wenn eine BASIC-Rechtschreibregel 
nicht beachtet wird, z.B. REED anstelle von READ, oder wenn beim 
Setzen von Klammern die Zahl der sich öffnenden Klammern mit der 
Zahl der sich schließenden Klammern nicht übereinstimt. 


Vergleichen Sie hierzu: EDIT 


Fehlernumer: 3 
Fehlermeldung: "Unexpected RETURN in <Zeilennummer>" 


Bedeutung: Bei einer RETURN-Anweisung fehlt die dazugehörige 
GOSUB-Anweisung 


Erläuterung: 


Diese Fehlermeldung wird ausgegeben, wenn versucht wird, aus 
einem Unterprogramm ohne vorherigen ordnungsgemäßen Einsprung in 
dieses Unterprogramm zurückzukehren, Wie bei der FOR NEXT- 
Schleife das Paar FOR und NEXT zusammengehören, so gehört auch 
das Paar GOSUB-RETURN zusammen. Fehlt die GOSUB-Anweisung, wird 
die oben aufgeführte Fehlermeldung auf dem Bildschirm angezeigt. 
Der Fehler tritt ebenfalls auf, wenn von außen in ein Unterpro- 
gramm hineingesprungen wird, d.h. also, wenn die GOSUB-Anweisung 
nicht ordnungsgemäß durchlaufen wird. 


Vergleichen Sie hierzu: RETURN, GOSUB 
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Fehlernummer: 4 
Fehlermeldung: "DATA exhausted in <Zeilennummer>" 


Bedeutung: Es fehlen Daten für die DATA-Anweisung 


Erläuterung: 


Auch hier haben wir wieder zumindest ein Pärchen, bestehend aus 
einer oder mehreren READ-Anweisungen und einer oder mehreren 
DATA-Anweisungen, vor uns. "Gelesen'' werden DATA-Anweisungen 
ausschließlich mit einer oder mehreren READ-Anweisungen. Die 
Fehlermeldung tritt dann auf, wenn alle vorhandenen DATA-Anwei- 
sungen bereits gelesen worden sind und ein erneuter Leseversuch 
unternommen wird. 

Mit anderen Worten, der Fehler wird angezeigt, wenn für eine 
READ-Anweisung keine DATA-Anweisung mehr vorhanden ist. 


Vergleichen Sie hierzu: READ, DATA 


Fehlernummer: 5 
Fehlermeldung: "Improper argument in <Zeilennummer>" 


Bedeutung: Es wurde ein unerlaubtes Argument angegeben. 


Erläuterung: 

Diese Fehlermeldung kann die verschiedensten Ursachen haben. Sie 
bedeutet, daß der Wert eines Arguments einer Funktion nicht 
erlaubt ist oder bestimmte Parameter einer Anweisung falsch sind. 


Beispiel: 


PRINT SQR(-25) 
Improper argument 
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MODE 5 
Improper argument 


WIDTH 400 
Improper argument 


Hinweis: 


Wenn bei ON <W GOTO ... oder auch bei ON <M GOSUB ... der Wert 
des Ausdrucks gleich Null oder größer als die Anzahl der Listen- 
elemente (aber <=255) ist, so wird keine Fehlermeldung angezeigt, 
sondern es wird mit der nächsten, ausführbaren Anweisung weiter- 
gearbeitet. Das ist insofern von Bedeutung, als der Programmierer 
die notwendigen Plausibilitätsprüfungen selbst durchführen muß, 
wenn er nicht Opfer von Fehleingaben oder Rechenfehlern werden 
will. 


Fehlernumer: 6 
Fehlermeldung: "Overflow in <Zeilennummer>" 


Bedeutung: Überlauf 


Erläuterung: 

Liegt das Ergebnis einer Berechnung durch BASIC außerhalb des 
zulässigen Bereichs, so wird diese Fehlermeldung als Warnung 
ausgegeben, ohne jedoch einen Programmabbruch zu verursachen. 
Beispiel: 

10 A=1E+38 


20 PRINT A+A 
30 PRINT "Programmende" 
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Ergebnis: 
Overflow 
1.7014 1E+38 


Programmende 
Ready 


Fehlernumer: 7 
Fehlermeldung: "Memory full in <Zeilennummer>" 


Bedeutung: Der Speicher des >> CPC 464 << ist voll. 


Erläuterung: 


Diese Fehlermeldung bedeutet, daß der Speicher des >> CPC 464 << 
vollständig gefüllt ist. Dies kann folgende Ursachen haben: 


l) Das Programm ist zu groß. 
2) Das Programm enthält zu viele FOR NEXT-Schleifen. 


3) Das Programm enthält zu viele Verschachtelungen von 
Unterprogrammen. 


4) Im Programm treten zu viele Variablen auf. 


5) Durch die MEMORY-Anweisung wurde der für BASIC verfügbare 
Speicherplatz zu klein bemessen. 


Hinweis: 
Ein geöffneter Kassettenfile benötigt einen Puffer im Speicher 
des >> CPC 464 <<, was dazu führen kann, daß die Werte für MEMORY 


eingeschränkt sind. 


Vergleichen Sie hierzu: FRE, HIMEM, MEMORY 
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Fehlernummer: 8 
Fehlermeldung: "Line does not exist in <Zeilennummer>" 


Bedeutung: Eine angesprochene Zeilennummer existiert nicht. 


Erläuterung: 
Die angesprochene Zeilennummer ist im Programm nicht vorhanden. 
Fehlermeldungen dieser Art kommen vor, wenn zu einer nicht 


vorhandenen Zeile verzweigt wird. Sie erscheint häufig im Zusam- 
menhang mit GOTO oder GOSUB, oder auch bei IF THEN ELSE. 


Vergleichen Sie hierzu: DELETE, EDIT, LIST, RENUM 


Fehlernummer: 9 

Fehlermeldung: "Subscript out of range in <Zeilennummer>" 

Bedeutung: Ein Index liegt außerhalb des festgelegten Be- 
reichs. 

Erläuterung: 

Diese Fehlermeldung bedeutet, daß ein Index außerhalb des zuläs- 

sigen Bereichs liegt. Sie wird ausgegeben, wenn bei der Dimensio- 

nierung eines Feldes mit der DIM-Anweisung zu kleine Werte ge- 


wählt wurden. 


10 DIM A(2) 
20 A(4)=55 


Ergebnis: Subscript out of range in 20 


Vergleichen Sie hierzu: DIM 
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Fehlernummer: 10 
Fehlermeldung: "Array already dimensioned in <Zeilennummer>" 


Bedeutung: Eine Feldvariable wurde bereits dimensioniert. 


Erläuterung: 


Diese Fehlermeldung besagt, daß bereits ein Feld mit gleichem 
Namen dimensioniert wurde. In diesem Fall muß entweder ein an- 
derer Variablenname gewählt werden oder das ursprüngliche Feld 
gelöscht werden. 

Eine wiederholte Dimensionierung kann auch "verdeckt" vorkommen, 
so daß es dem Programmierer anfänglich gar nicht auffällt. Hierzu 
folgendes Beispiel: 


100 FOR I=0 TO 10 

110 A(I)=I#I 

120 PRINT A(I); 

130 NEXT I 

140 DIM A(100) 

150 PRINT "Neuer Abschnitt" 


Ergebnis: 


0149 16 25 36 49 64 81 100 
Array already dimensioned in 140 


Im ersten Programmteil (Anweisungsnummern 100 bis 130) wird ein 
Feld mit 11 Elementen bearbeitet, und zwar von A(0) bis A(I0). 
Damit ist die intern vorgegebene Dimensionierung ausgenutzt. In 
der Anweisungsnumer 140 wird die Variable erneut, und damit 
unzulässigerweise ein zweites Mal dimensioniert. Das Ergebnis ist 
die oben angezeigte Fehlermeldung: 


"Array already dimensioned in 140". 


Vergleichen Sie hierzu: DIM, ERASE 
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Fehlernummer: Il 
Fehlermeldung: "Division by zero in <Zeilennummer>" 


Bedeutung: Es wurde durch Null dividiert. 


Erläuterung: 


Eine Division durch Null "0" ist nach den Regeln der Mathematik 
nicht zulässig und wird deshalb auch durch BASIC als mathema- 
tischer Fehler angezeigt. 


Beispiel: 


10 INPUT WERT 

20 PRINT WERT/ZAHL 

30 PRINT "Programm laeuft weiter" 
40 END 


Ergebnis: 

? 78 

Division by zero 
1.7014 1E+38 


Programm laeuft weiter 
Ready 


Fehlernumer: 12 
Fehlermeldung: "Invalid direct command in <Zeilennummer>" 


Bedeutung: Diese direkte Eingabe ist im Kommandomodus unzu- 
lässig. 
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Erläuterung: 


Es wird im Direkt-Modus eine BASIC-Anweisung eingegeben, die nur 
in einem Programm angewendet werden darf. 


Beispiel: 


DEF FN C(A,B)=A*A + B*B 
Invalid direct command 


Fehlernumer: 13 
Fehlermeldung: "Type mismatch in <Zeilennummer>" 


Bedeutung: Die Zuweisung zu einer Variablen ist nicht typge- 
recht. 


Erläuterung: 


Bei einer Zuweisung von Variablen stimmen die Typen nicht überein 
und führen zur entsprechenden Fehlermeldung. 


Beispiel |: A$=3 
Type mismatch 
Ready 


Beispiel 2: LINE INPUT A 


Type mismatch 
Ready 


Bei einer LINE INPUT-Anweisung muß eine Zeichenkettenvariable 
folgen. 


Vergleichen Sie hierzu: DEFINT, DEFSTR, DEFREAL 
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Fehlernummer: 14 
Fehlermeldung: "String space full in <Zeilennummer>" 


Bedeutung: Zeichenkettenbereich ist belegt. 


Erläuterung: 

Es wurden zuviele Zeichenketten definiert, so daß der für Zei- 
chenketten reservierte Speicherbereich auch nach einer "garbage 
collection" nicht groß genug ist. "Garbage collection" bedeutet 
ein Aufräumen des Arbeitsspeichers. 

Die für Zeichenketten reservierte Speicherbereiche werden ge- 
löscht, wenn diese nicht mehr benötigt werden. Das Aufräumen wird 
vom BASIC-Interpreter selbst durchgeführt. 


Beachten Sie, daß während einer "garbage collection" weder Einga- 
ben noch Berechnungen durchgeführt werden können. 


Vergleichen Sie hierzu: FRE 


Fehlernumer: 15 
Fehlermeldung: "String too long in <Zeilennummer>" 


Bedeutung: Eine Zeichenkette besitzt mehr als 255 Zeichen. 
Erläuterung: 


In einem Programmablauf kann es durch Aneinanderhängen (Addition) 
von Zeichenkettenausdrücken zu dieser Fehlermeldung kommen. 
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Fehlernummer: 16 
Fehlermeldung: "String expression too complex in <Zeilennummer>" 


Bedeutung: Ein Zeichenkettenausdruck ist zu kompliziert. 


Erläuterung: 
Diese Fehlermeldung wird ausgegeben, wenn ein Stringausdruck für 
BASIC zu kompliziert ist. 


Dieses tritt ein, wenn zu viele Verschachtelungen enthalten sind. 


In einem derartigen Fall sollte der Ausdruck aufgeteilt werden, 
so daß sich kleinere, für BASIC überschaubare Ausdrücke ergeben. 


Fehlernumer: 17 
Fehlermeldung: "Cannot CONTinue in <Zeilennummer>" 


Bedeutung: Der Programmablauf kann nicht fortgesetzt werden. 


Erläuterung: 

Diese Fehlermeldung tritt nur beim Befehl CONT auf, der z.B. nach 
STOP oder nach einem Fehler eine Fortsetzung des Programms be- 
wirkt. Eine Programmfortsetzung ist jedoch nicht immer möglich. 


Dies ist immer dann der Fall, wenn das Programm nach einem Ab- 
bruch geändert wurde. 


Vergleichen Sie hierzu: CONT, STOP 
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Fehlernummer: 18 

Fehlermeldung: "Unknown user function in <Zeilennummer>" 

Bedeutung: Eine aufgerufene Funktion wurde noch nicht de- 
finiert. 

Erläuterung: 

Wird eine vom Benutzer zu definierende Funktion mit FN aufgeru- 

fen, ohne daß diese zuvor mit DEF FN definiert wurde, so kann die 

entsprechende Berechnung nicht durchgeführt werden und es wird 


die entsprechende Fehlermeldung ausgegeben. 


Vergleichen Sie hierzu: DEF FN 


Fehlernummer: 19 

Fehlermeldung: "RESUME missing in <Zeilennummer>" 

Bedeutung: In einer Fehlerbehandlungsroutine fehlt die 
RESUME-Anweisung. 

Erläuterung: 

Im Zusammenhang mit der ON ERROR GOTO-Anweisung muß eine Fehler- 

behandlungsroutine mit RESUME abgeschlossen werden. Fehlt die 

RESUME-Anweisung, so ist eine Wiederaufnahme des regulären Pro- 


grammablaufs nicht möglich. 


Vergleichen Sie hierzu: RESUME, ON ERROR GOTO, ERR, ERL 
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Fehlernummer: 20 
Fehlermeldung: "Unexpected RESUME in <Zeilennummer>" 


Bedeutung: RESUME steht nicht innerhalb einer Fehlerbehand- 
lungsroutine. 


Erläuterung: 


Eine RESUME-Anweisung ist nur innerhalb einer Fehlerbehandlungs- 
routine zulässig, die mit ON ERROR GOTO vordefiniert sein muß. 
Ein Einsprung mitten in eine Fehlerbehandlungsroutine ist meist 
ein Programmierfehler wie in folgendem Programmbeispiel: 


10 ON ERROR GOTO 90 

20 DIM A(20) 

30 FOR I=1 TO 15 

40 A(I)=I 

50 PRINT A(I) 

60 GOTO 90:REM *%%* Programmfehler *** 
70 NEXT 

80 END 

90 ON ERROR GOTO 0 

100 PRINT ERR,ERL:RESUME 100 


Ergebnis: 

l 

20 100 
Unexpected RESUME in 100 


Vergleichen Sie hierzu: RESUME, ON ERROR GOTO, ERR, ERL 
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Fehlernummer: 21 
Fehlermeldung: "Direct command found" 


Bedeutung: Direkt-Kommando beim Laden von Kassette gefunden. 


Erläuterung: 


Sollen mit LOAD Programme vom Datacorder geladen werden und wird 
eine Zeile ohne Zeilennummer erreicht, so wird diese als Direkt- 
anweisung interpretiert und die Fehlermeldung "Direct command 
found" ausgegeben. In der Regel sind in einem derartigen Fall die 
gelesenen Daten kein Programm, sondern Texte. 


Fehlernummer: 22 
Fehlermeldung: "Operand missing in <Zeilennummer>" 


Bedeutung: Es fehlt in einer Anweisung ein Operand. 


Erläuterung: 


Diese Fehlermeldung tritt auf, wenn in einem Ausdruck, bei einem 
Funktionsaufruf oder auch bei Anweisung ein Operand fehlt. Die 
Fehlermeldung tritt nicht nur in einem Programm, sondern auch im 
Direktmodus auf. 


Beispiel: 


PRINT 3%4 .75+ 
Operand missing 
Ready 
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Fehlernummer: 23 
Fehlermeldung: "Line too long in <Zeilennummer>" 


Bedeutung: Eine Zeile ist zu lang. 


Erläuterung: 


Vom Benutzer direkt oder im Programm eingegebene Zeilen werden 
von BASIC in eine eigene Form umgewandelt. Diese kann nur eine 
bestimmte Größe annehmen, andernfalls wird die Fehlermeldung 
"Line too long" ausgegeben. Diese Fehlermeldung tritt nur in sehr 
seltenen Fällen auf. In einem derartigen Fall sollte man eine 
Zeile in zwei oder mehrere aufteilen, was meist auch der Über- 
sichtlichkeit des Programms dient. 


Fehlernummer: 24 
Fehlermeldung: "EOF met in <Zeilennummer>" 


Bedeutung: Das Ende einer Datei wurde bereits erreicht. 


Erläuterung: 


Wird beim Lesen einer Datei vom DATACORDER nicht das Ende der 
Datei beachtet, sondern über das Ende der Datei hinaus gelesen, 
so ist dies nicht möglich und führt zu dieser Fehlermeldung. 

Das Ende einer Datei kann mit EOF abgefragt und mit einer IF 
THEN-Anweisung die INPUT-Anweisung im Programmablauf übersprungen 
werden. 


Vergleichen Sie hierzu: EOF, OPENIN, INPUT, LINE INPUT 
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Fehlernummer: 25 
Fehlermeldung: "File type error in <Zeilennummer>" 


Bedeutung: Der Typ einer Datei ist nicht korrekt. 


Erläuterung: 


Werden Daten, z.B. Text-Dateien, vom DATACORDER eingelesen, so 
muß die Aufzeichnungsart beachtet werden, d.h. sie können nicht 
mit der LOAD-Anweisung geladen werden. Außerdem können nur Datei- 
en, die im ASCII-Code abgelegt wurden, mit der OPENIN-Anweisung 
gelesen werden. 


Vergleichen Sie hierzu: LOAD, RUN, SAVE, OPENIN, OPENOUT 


Fehlernumer: 26 
Fehlermeldung: "NEXT missing in <Zeilennummer>" 


Bedeutung: Eine FOR NEXT-Schleife ist unvollständig. 


Erläuterung: 


Wird zur mehrfachen Wiederholung eines Programms eine Schleife 
mit der dazugehörigen FOR-Anweisung begonnen, so muß das Schlei- 
fenende mit NEXT gekennzeichnet werden. 


Die Fehlermeldung tritt insbesondere dann auf, wenn zwar eine 
NEXT-Anweisung vorhanden ist, die angegebene Laufvariable aber 
nicht mit der in der FOR-Schleife übereinstimmt. Weiterhin muß 
bei geschachtelten Schleifen bei Angabe mehrerer Parameter nach 
NEXT auf die richtige Reihenfolge geachtet werden. 
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Beispiel: 

10 FOR I=1 TO 10 
20 FOR K=1 TO 3 

30 PRINT I*K 

40 NEXT I 
Ergebnis: 

NEXT missing in 10 


In Zeile 40 wurden versehentlich die Laufvariablen K vergessen. 


Vergleichen Sie hierzu: FOR NEXT 





Fehlernumer: 27 
Fehlermeldung: "File already open in <Zeilennummer>" 


Bedeutung: Der angesprochene File ist bereits eröffnet. 


Erläuterung: 


Beim Ablegen bzw. Lesen von Dateien mit dem DATACORDER ist es 
nicht möglich, eine OPENOUT- oder: OPENIN-Anweisung mehrfach zu 
geben, ohne vorher die bereits geöffnete Datei wieder zu 
schließen. Das Schließen erfolgt mit der CLOSEIN- bzw. mit der 
CLOSEOUT-Anweisung. Nach dieser Anweisung kann ein neuer FILE 
eröffnet werden. 


Beispiel: 


10 OPENOUT "NAMEN" 
20 OPENOUT "TELEFONNUMMERN" 


(weiteres Programm) 
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führt beim Starten des Programms zur Fehlermeldung: 
"File already open in 20" 


Vergleichen Sie hierzu: CLOSEIN, CLOSEOUT, OPENIN, OPENOUT 


Fehlernummer: 28 
Fehlermeldung: "Unknown command" 


Bedeutung: Eine Anweisung ist in BASIC nicht definiert. 


Erläuterung: 


Diese Fehlermeldung kommt in der Regel bei alleiniger Arbeit mit 
dem BASIC-Interpreter nicht vor. Sie kann aber bei Kommunikation 
mit weiteren Geräten auftreten, wenn Anweisungen gegeben werden, 
die BASIC nicht bekannt sind. 


Fehlernumer: 29 
Fehlermeldung: '"WEND missing in <Zeilennummer>" 


Bedeutung: In einer WHILE WEND-Schleife fehlt das WEND. 


Erläuterung: 


Beim Programmieren einer WHILE WEND-Schleife ist ebenso wie bei 
der FOR NEXT-Schleife ein Kennzeichnen des Schleifenendes notwen- 
dig. Tritt die Fehlermeldung "WEND missing" auf, so fehlt zu 
einer WHILE-Anweisung die entsprechende WEND-Anweisung als 
Schleifenabschluß. Hierbei muß beachtet werden, daß sich ein WEND 
immer auf das vorhergehende WHILE bezieht und deshalb zu jeder 
WHILE-Anweisung eine WEND-Anweisung notwendig ist. 
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Beispiel: 


10 MODE | 

20 WHILE SUMME<50 

30 INPUT "Ihre neue Zahl : '";ZAHL 
40 SUMME=SUMME+ZAHL 


50 PRINT " SUMME = '';SUMME 
60 REM *%*%% WEND VERGESSEN X%%% 
70 END 

Ergebnis: 


Das Programm bricht in Zeile 20 mit der Fehlermeldung "WEND 
missing in 20" ab, da das Schleifenende nicht mit der WEND- 
Anweisung gekennzeichnet wurde. 

Dieser Fehler tritt nicht auf, wenn Zeile 60 eingefügt wird: 

60 WEND 


Vergleichen Sie hierzu: WHILE WEND 


Fehlernummer: 30 

Fehlermeldung: "Unexpected WEND in <Zeilennummer>" 

Bedeutung: Bei einer WEND-Anweisung fehlt die zugehörige 
WHILE-Anweisung. 

Erläuterung: 

Diese Fehlermeldung besagt, daß ein durch WEND zu kennzeichnendes 

Schleifenende angetroffen wurde, ohne daß eine dazugehörige 

Schleife vorhanden ist. 

Dem BASIC-Interpreter ist in diesem Fall keine Bedingung vorgege- 

ben, die er beim Erreichen der WEND-Anweisung überprüft, bevor 


BASIC einen Programmteil erneut durchläuft. 


Vergleichen Sie hierzu: WHILE WEND 
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Einführung 


Viele Menschen betrachten lieber ein Bild, eine Skizze, eine 
Graphik, um sich über einen Sachverhalt zu unterrichten, als daß 
sie eine entsprechende Beschreibung über diesen Sachverhalt le- 
sen. Wenn es sich allerdings um ganz kurze Informationen handelt, 
sehen die Dinge bereits etwas anders aus. Hierzu ein kurzes 
Beispiel aus dem Alltag: 


Sie fahren im Auto und betrachten die Verkehrsschilder genau. 
Ihnen fällt aufgrund der Gewöhnung dabei gar nicht mehr auf, daß 
einige Schilder in Wahrheit nur Bilder sind, andere Schilder 
enthalten Bilder gemischt mit Texten, andere wiederum nur Texte. 
Diese unterschiedliche Art der Darstellung ist auch notwendig, 
denn nicht jeder verkehrswichtige Sachverhalt läßt sich nur durch 
ein einziges Bild eindeutig beschreiben. 


Offensichtlich ist also eine große Zahl von Menschen besser in 
der Lage, sich über Sachverhalte zu unterrichten, wenn sie ihnen 
in bildhafter oder graphischer Form angeboten werden. 
Arbeitsorganisationen machen sich derartige Überlegungen zunutze, 
wenn sie Arbeitsabläufe im beruflichen Alltag mit graphischen 
Symbolen, also bildhaft wiedergeben. 


Gleiche Überlegungen lassen sich auch im Zusammenhang mit Proble- 
men der elektronischen Datenverarbeitung anstellen: 


Wenn man im Computer ein Programm ablaufen läßt, so zwingt man 
ihn dazu, einen vorgegebenen Arbeitsablauf in einzelnen Arbeits- 
schritten auszuführen. Denn das aus dem Griechischen stammende 
Wort "Programm'' bedeutet ja nichts anderes als (wörtlich über- 
setzt) "Vorschrift", hier "Arbeitsvorschrift". Die Aufeinander- 
folge von Arbeitsschritten in einem Computer läßt sich nun eben- 
falls durch graphische Symbole ausdrücken. 


Verständlicherweise wurden diese Symbole ebenso genormt wie die 
Straßenverkehrs-Symbole, und dies aus guten Gründen: Ohne eine 
Vereinheitlichung wäre die Benutzung von Symbolen sinnlos, denn 
an die Stelle der Verdeutlichung träte das Chaos: Man müßte 
raten, was jeweils gemeint ist. 
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Sie kennen den Ausdruck "Schilderwald" für eine Situation im 
Straßenverkehr, die Sie nicht sofort beherrschen, und bei der Sie 
"raten müssen, was denn nun eigentlich gemeint sei". Hier ist 
also trotz der Vereinheitlichung (Normung) dennoch keine Verdeut- 
lichung gegeben: Das Überangebot stiftet nur Verwirrung. 


Gleiches gilt auch für graphische Darstellungen in der elektro- 
nischen Datenverarbeitung. Ein Überangebot an graphischen Infor- 
mationen verwirrt. 


Aus diesem Grund hat man bei den graphischen Darstellungen der 
EDV die Möglichkeit, in mehreren Stufen vorzugehen. Man wird ein 
kompliziertes Programm (einen komplizierten Arbeitsablauf) zuerst 
einmal in groben Zügen darstellen und dabei eben nicht jeden 
einzelnen Arbeitsschritt des Computers berücksichtigen. Man 
spricht von einem Blockdiagramm oder auch von einem Flußdiagramm. 


Es ist gewissermaßen so, als ob man nur die D-Zug-Stationen einer 
Reise aufführt und nicht auch alle anderen nur möglichen Statio- 
nen. 

In einer zweiten Stufe erst wird man bei einem komplizierten 
Programm einen genauen Programmablaufplan zeichnen (Feindia- 
gramm). 

Man bedient sich, wie erwähnt, genormter Symbole, wie sie in der 
DIN-Norm 66001 niedergelegt sind. Auf der folgenden Seite geben 
wir die wichtigsten Symbole dieser DIN-Norm wieder. 


Symbolgruppen 


Mit Programmablaufplänen werden Abläufe von Operationen (Verar- 
beitungsschritten) im Computer unter Verwendung von jeweils vor- 
handenen Daten beschrieben. Die Verwendung dieser Programmablauf- 
pläne besteht vor allem aus Symbolen für 


Operationen 
Eingabe 
Ausgabe 
Ablauflinien 


Weitere Symbole dienen der verfeinerten Darstellung. 
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Anordnung der Symbole 


Jedes Symbol des Programmablaufplanes hat nur einen Eingang und 
einen oder mehrere Ausgänge. 


Beispiele: 
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| 


2 


3 


Eingeben von Hand (Datenerfassung) 
Programm-Modifikation (z.B. programmierte Schalter) 


Datenträger allgemein für Darstellungen, bei denen 
der Datenträger nicht näher beschrieben werden kann 


Operationen von Hand, Eingreifen von Hand 
Bearbeiten allgemein 


Vom Leitwerk der Datenverarbeitungsanlage gesteuer- 
ter Datenträger 


Papierausdruck 

Ausführung einer Hilfsfunktion 

Anzeige in optischer oder akustischer Form 
Lochstreifen 


Pfeil zur Darstellung eines gerichteten Informa- 
tionsflusses 


Trommelspeicher, Plattenspeicher (mit graphischer 
Ergänzung) 


Grenzstelle 

Verzweigung 

Magnetband (mit graphischer Ergänzung) 

wie Nr. 1] 

Datenübertragung (Ergänzung durch gerichteten Pfeil) 
Lochkarten 


Übergangsstelle 
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Die Wiederholung gleichartiger Symbole stellen Sie dabei wie 
folgt dar: 


aa 


Die Symbole können beschriftet werden. Dabei ist zwischen einer 
inneren und einer äußeren Beschriftung zu unterscheiden. 


Die Außenbeschriftung darf nur dann angewendet werden, wenn eine 
Beziehung zu anderen Teilen der Dokumentation hergestellt werden 
muß, bzw. wenn bei mehreren Abzweigungslinien aus einem Symbol 
die Bedingungen beschrieben werden müssen, nach denen verzweigt 
werden soll. 


Beispiel: 


Vorgang X 
<o >o 
=0 


Die Innenbeschriftung eines Symbols soll nur dann angewendet 
werden, wenn auch ein unmittelbarer Zusammenhang zu weiteren 
Symbolen besteht und ein Hinweis auf andere Abläufe gegeben 
werden muß. 
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Um ein allgemein verständliches Beispiel eines Ablaufplanes zu 
geben, das zugegebenermaßen mit der elektronischen Datenverarbei- 
tung nicht unmittelbar etwas zu tun hat, zitieren wir aus dem 
ersten Band (S. 15) des im gleichen Verlag erschienenen zweibän- 
digen großen Alphatronic BASIC-Buchs von Bodo und Norbert Bollow: 


Zusammenfassung 


Sie werden festgestellt haben, daß wir in unserem Buch mit Pro- 
grammablaufplänen sehr sparsam umgegangen sind. Und das hat auch 
seinen Grund: 


Unsere Übungsprogramme sind im allgemeinen sehr kurz. Sie können 
sie unmittelbar an Ihrem >> CPC 464 << eingeben und ausprobieren. 
Diese Möglichkeit, die sie heute haben, gab es in der Zeit, als 
nur die Großcomputer existierten, nicht: 


Der Programmierer mußte seine Programme am Schreibtisch entwerfen 
und auch am Schreibtisch testen. Man sprach geradezu von 
"Schreibtischtests", die einem Maschinentest vorausgehen mußten. 
Verständlicherweise, denn die Maschinenstunden am Großrechner 
waren sehr teuer (bis zu einigen tausend DM!). Und es vergingen 
oftmals einige Tage, bis er das Ergebnis eines Maschinenlaufs in 
Form einer Liste auf dem Papier vor sich liegen hatte. Hier half 
ihn nur sein Programmablaufplan, wenn er noch mit der Lösung 
seines Problems fertig werden wollte. 


Sie haben da, wie gesagt, ganz andere Möglichkeiten: 


Sofort nach dem Start des Programms haben sie Erfolg oder etwas 
weniger Erfolg! Sie können mit dem >> CPC 464 << im Dialog arbei- 
ten. Ihr Interpreter erlaubt Ihnen diese Vorgehensweise. Und bei 
kurzen Programmen, die auf einer Bildschirmseite vor Ihnen ste- 
hen, haben Sie auch einen ausreichenden Überblick. Sie lernen 
daher schnell und ohne Ballast und können auf winzige Programmab- 
laufplänchen verzichten. 


Bei großen Programmen sieht es natürlich anders aus! 
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zu spät 











Stört 
der Lärm? 


Wecker abstellen 
waschen, ankleiden 
Frühstückstisch 
decken 
Eine Scheibe Brot 
vorbereiten 
Eine Scheibe Brot essen 


zu früh 


oder zu spät 
aufgcwacht? 
zu früh 
muß ich 
heute arbeiten 
? 


nein 










Ende 
(weiterschlafen) 














nein 


Ende 
(Zeitung lesen) 
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ASCII-Werte Tabelle Teil | 


DEC OCTAL HEX 


vosavu rPTwmn.- Oo 


000 
001 
002 
003 
004 
005 
006 
007 
010 
011 
012 
013 
014 
015 
016 
017 
020 
021 
022 
023 
024 
025 
026 
027 
030 
031 
032 
033 
034 
035 
036 
037 
040 


Name 


Bedeutung / Wirkung 


ohne Wirkung 

Drucken der Steuerzeichen als Symbole 
Textcursor ausschalten 

Textcursor einschalten 

entspricht MODE-Anweisung 

setzt Zeichen auf Graphikcursorposition 
Einschalten des Textbildschirms 
Signal ausgeben, leert die Warteschlangen 
Cursor ein Zeichen zurück 

Cursor ein Zeichen vor 

setzt den Cursor eine Zeile nach unten 
setzt den Cursor eine Zeile nach oben 
entspricht CLS 

Cursor an Zeilenanfang 

entspricht PAPER-Anweisung 

entspricht PEN-Anweisung 

Zeichen unter Cursor löschen 

Zeile bis Cursor löschen 

Zeile ab Cursor löschen 

Bildschirm bis Cursor löschen 
Bildschirm ab Cursorposition löschen 
Textbildschirm abschalten, siehe ACK 
Transparentmodus setzen 
Graphikfarbstift setzen 

PAPER und PEN-Farben tauschen 
entspricht SYMBOL-Anweisung 
entspricht WINDOW-Anweisung 

im Programmablauf keinen Einfluß 
entspricht INK-Anweisung 

entspricht BORDER-Anweisung 
entspricht LOCATE |,| 

entspricht der LOCATE-Anweisung 

setzt Leerzeichen "<space>" 
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ASCII-Werte Tabelle Teil 2 


DEC OCTAL HEX ASCII-Zeichen Tastencode Block 





32 040 20 <space> 47 
33 041 21 ! 64 
34 042 22 ” 65 
35 043 23 * 57 
36 044 24 $ 56 
37 045 25 % 49 
38 046 26 & 48 
39 047 27 5 4] 
40 050 28 40 
41 051 29 ) 33 
42 052 2A x 29 
43 053 2B r 28 
44 054 2C s 39 
45 055 2D = 25 
46 056 2E . 31 7 
47 057 2F / 30 
48 060 30 16) 32 15 
49 061 3] 1 64 13 
50 062 32 2 65 14 
51 063 33 3 57 5 
52 064 34 4 56 20 
53 065 35 =) 49 12 
54 066 36 & 48 4 
55 067 37 7 41 10 
56 070 38 8 40 11 
57 07 39 9 33 3 
58 072 3A - 29 
59 073 3B H 28 
60 074 3C “ 39 
61 075 3D = 25 
62 076 3E > 3] 
63 077 3F ? 30 
64 100 40 8 26 
65 101 41 A 69 
66 102 42 B 54 
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103 
104 
105 
106 


110 
111 
112 
113 
114 
115 
116 
117 


121 
122 


124 
125 
126 
127 


131 
132 
133 


135 
136 
137 
140 
141 
142 


144 
145 
146 
147 
150 
151 
152 
153 


3Jurn n<x<z<cHVIOSoTozZzr Ru HmIanmon 


Zu. r- Johan 9 
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108 154 6C l 36 
109 155 6D m 38 
110 156 6E n 46 
111 157 6F o 34 
112 160 70 p 27 
113 161 71 q 67 
114 162 72 r 50 
115 163 73 s 60 
116 164 74 t 51 
117 165 75 u 42 
118 166 76 v 55 
119 167 77 w 59 
120 170 78 x 63 
121 171 79 y 43 
122 172 7A z 71 
123 173 7B { 17 
124 174 7C ) 26 
125 175 7D } 19 
126 176 TE N 


Graphik-Zeichen des >> CPC 464 << 


ASCII-Werte größer 126 definieren Graphikzeichen. Der höchste 
‚zulässige ASCII-WERT ist hierbei 255. 


Um die Graphik-Symbole und die Sonderzeichen auf dem Monitor mit 
der PRINT-Anweisung direkt zu schreiben, geben Sie bitte nachste- 
hendes Programm ein und starten es mit RUN: 


Programm: GRAPHIK-ZEICHEN 


10 REM x*%%* ASCII-Wert und GRAPHIK-Zeichen ###% 
20 MODE 2 

30 LOCATE 15,1 

40 PRINT "GRAPHIK-ZEICHEN des >> CPL 464 <<" 

50 PRINT STRING$ (79, "_") 

60 FOR I=126 TO 255 

70 PRINT Iz"=";5CHR$(T), 

80 NEXT I 

90 G0TO 90 
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Der in der Tabelle aufgeführte Tastencode wird bei den Anweisun- 
gen INKEY, KEY DEF und JOY als Angabe bzw. Abfrage verwendet. 
Vergleichen Sie die Angabe und das Format hierzu bei den ent- 
sprechenden Anweisungen. 
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Die Farben werden bei der BORDER-Anweisung direkt mit dem nume- 
rischen Wert des Farbcodes angegeben. Für die Anweisungen CLG, 
DRAW, DRAWR, PAPER, PEN, PLOT, PLOTR ist der Code der zweiten 
Tabelle zu verwenden. 

Mit der INK-Anweisung kann die Hintergrundfarbe und die Zeichen- 
farbe nach dem gewählten Code der Code-Tabelle bestimmt und 
gesetzt werden. 

Der angegebene Farbcode der ersten Tabelle ist nicht abhängig von 
der Formatanweisung MODE. 

Die über den Code der zweiten Tabelle gewählte Farbe ist von der 
MODE-Anweisung beeinflußt. Nach dem Einschalten des >> CPC 464 << 
benutzt PAPER den Code O und PEN den Code I, d.h. die Farbe des 
Bildschirmfensters ist gleich | (blau) und die der Zeichen ist 24 
(hellgelb). 


Farbcode - Tabelle 


Farbcode Farbe Farbcode Farbe 





0 schwarz 14 pastellblau 
1 blau 15 orange 

2 hellblau 16 rosa 

3 rot 17 pastellmagenta 
4 magenta 18 hellgrün 

5 hellviolett 19 seegrün 

6 hellrot 20 hellcyan 

7 purpur 2] lindgrün 

8 hellmagenta 22 pastellgrün 
9 grün 23 pastellcyan 
10 cyan 24 hellgelb 

11 himmelblau 25 pastellgelb 
12 gelb 26 hellweiß 

13 weiß 
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Code - Tabelle 


<Code> MODE O0 MODE | MODE 2 
0 = Farbcode 1 l l 
l = Farbcode 24 24 24 
2 = Farbcode 20 20 1 
3 = Farbcode 6 6 24 
4 = Farbcode 26 1 1 
5 = Farbcode 0 24 24 
6 = Farbcode 2 20 l 
7 = Farbcode 8 6 24 
8 = Farbcode 10 1 l 
9 = Farbcode 12 24 24 

10 = Farbcode 14 20 1 
11 = Farbcode 16 6 24 
12 = Farbcode 18 l 1 
13 = Farbcode 22 24 24 
14% = Farbcode 1><24 20 l 
15% = Farbcode 16><11 6 24 


Die mit '*' gekennzeichneten Codes bewirken im MODE 0 ein 
Wechseln zwischen den zwei Farben mit den angegebenen Farbcodes 
"c" 5 
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28. Die BASIC-Befehle 





In der nachstehenden alphabetischen Aufstellung finden Sie alle 
BASIC-Kommandos, Anweisungen und geschützten BASIC-Worte, die der 
Interpreter als Anweisungen bzw. als Kommandos interpretiert. Die 
Worte heißen geschützt, da sie nicht für Variablen- bzw. Funk- 
tionsnamen verwendet werden dürfen. 


Buchstabe: A 
ABS AFTER AND ASC 


ATN AUTO 


Buchstabe: B 


BIN$ BORDER 


Buchstabe: C 


CALL CAT CHAIN CHAIN MERGE 
CHR$ CINT CLEAR CLG 
CLOSEIN CLOSEOUT CLS CONT 

cos CREAL 


Buchstabe: D 


DATA DEF FN DEFINT DEFREAL 
DEFSTR DEG DELETE DI 
DIM DRAW DRAWR 


Buchstabe: E 


EDIT EI ELSE END 
ENT ENV EOF ERASE 
ERL ERR ERROR - EVERY 
EXP 
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Buchstabe 


FIX 


Buchstabe 


GOSUB 


Buchstabe 


HEX$ 


Buchstabe 
IF 

INP 
Buchstabe 


JOY 


Buchstabe 


KEY 


Buchstabe 


LEFT$ 
LIST 
LOG10 


Fi 


H: 


J: 


K: 


L: 


FN 


GOTO 


HIMEM 


INK 
INPUT 


KEY DEF 


LEN 
LOAD 
LOWER$ 


FOR 


INKEY 
INSTR 


LET 
LOCATE 
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FRE 


INKEY$ 
INT 


LINE INPUT 
LOG 


28. Die BASIC-Befehle 





Buchstabe 
MAX 


MIN 
MOVER 


Buchstabe 


NEW 


Buchstabe 


ON 
ON GOSUB 
OPENOUT 


Buchstabe 


PAPER 
PLOT 
PRINT 


Buchstabe 


RAD 
REM 
RESUME 
ROUND 


Buchstabe 


SAVE 
SPACES$ 


M: 


R: 


S: 


SPEED WRITE 


STOP 
SYMBOL 


MEMORY 


NEXT 


ON BREAK GOSUB 
ON GOTO 
OR 


PEEK 
PLOTR 
PRINT USING 


RANDOMIZE 
REMAIN 
RETURN 
RUN 


SGN 

SPC 

5Q 

STR$ 

SYMBOL AFTER 


MERGE 
MODE 


NOT 


ON BREAK STOP 
ON SQ GOSUB 
ORIGIN 


PEN 
POKE 


READ 
RENUM 
RIGHT$ 


SIN 

SPEED INK 
SQR 
STRING$ 
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MID$ 
MOVE 


ON ERROR GOTO 
OPENIN 
OUT 


PI 
POS 


RELEASE 
RESTORE 
RND 


SOUND 
SPEED KEY 
STEP 

SWAP 


28. Die BASIC-Befehle 





Buchstabe T: 
TAB 

TEST 

TO 


Buchstabe U: 


UNT 


Buchstabe V: 


VAL 


Buchstabe W: 
WAIT 

WINDOW 
Buchstabe X: 


ZOR 


Buchstabe Y: 


YPOS: 


Buchstabe Z: 


ZONE 


TAG 
TESTR 
TROFF 


UPPERS$ 


VPOS 


WEND 
WINDOW SWAP 


XPOS 


TAGOFF TAN 
THEN TIME 
TRON 

USING 

WHILE WIDTH 
WRITE 
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29. Der Personal-Computer >> CPC 464 << 





* CPU Z80A mit 4 MHz Taktfrequenz 


z80 CPU - der weltweit meistverwendete Mikroprozessor in der 
Homecomputer-Klasse, mit dem ein Großteil der vorhandenen Soft- 
ware genutzt werden kann. Das Betriebssystem CP/M ist nutzbar. 


* Arbeitsspeicher: 64 KByte RAM, davon unter BASIC für den 
Benutzer frei verfügbar 43533 Bytes. 


32 KByte ROM Systemspeicher 


Der >> CPC 464 << verfügt standardmäßig über 64 KByte RAM, von 
denen über 42 KByte dem Benutzer zur Verfügung stehen. Dies wird 
durch die ROM Overlay-Technik erreicht. Der zur Verfügung stehen- 
de Speicherplatz erlaubt es, auch größere Programme zu ent- 
wickeln. 


*% Tongenerator: AY-3-8912 
- 3 Kanäle 
- 8 Oktaven 


Musik aus 3 Kanälen, vorhanden sind 8 Oktaven. Für jeden Kanal 
kann unabhängig Tonhöhe und Lautstärke über eine entsprechende 
Hüllkurve gewählt werden. Die Ausgänge zum Anschluß an eine 
Stereo-Anlage sind vorhanden. Intern wird der Ton über einen 
MONO-Lautsprecher wiedergegeben. 


* Externer Speicher: Integrierter Datacorder 
- softwaremäßig steuerbar 
- Aufzeichnung 1000 bzw. 2000 Baud 


Ein Magnetbandspeicher steht mit dem eingebauten Datacorder zur 
Verfügung. Damit können Programme gelesen und abgespeichert wer- 
den, ohne sich mit den leidigen Problemen der Kompatibilität, des 
Anschließens und des richtigen Pegels abgeben zu müssen. Program- 
me können entweder mit IK Baud oder 2 K Baud geschrieben werden. 
Die Lesegeschwindigkeit wird softwaremäßig automatisch einge- 
stellt. 
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* Bildschirm: 6845 Bildschirmsteuerung (CRTC) 
- Modi 3; 20, 40, 80 Spalten 
- Graphik max. 640 x 200 Punkte 
- Farben 27 
darstellbar max. 16 


Bis zu 8 Bildschirmfenster sind frei und überlappend definierbar. 
Zudem noch ein Graphikfenster. 

80-spaltiger Textmodus, 256 Zeichen frei definierbar, eine Palet- 
te von 27 Farben, gleichzeitig darstellbar sind max. 16 Farben. 
Die Auflösung beträgt max. 640 x 200 Bildpunkte. 


* Schnittstellen: Centronics-kompatibel (parallel) 
Joystick 9-polig 
RGB und Sync 
Stereo-Ausgang 


Ein Centronics-kompatibler Druckeranschluß nach Standard ist 
vorhanden. Die Busy Signale werden für handshake verwendet. 


* Tastatur: Schreibmaschinenähnlich mit 74 Tasten 
abgesetzter Ziffernblock 
Sondertasten 
Funktionstasten zur freien Belegung 


Bis zu 120 Zeichen können auf eine Funktionstaste gelegt werden. 

Vier Cursor-Funktionstasten, abgesetzter Ziffernblock, COPY-, 

CAPS-LOCK-, ESC-, CLR-, TAB-, CTRL- und DEL-Taste sowie zwei 

ENTER-Tasten sind vorhanden. 

* Erweiterungen: ROM-Erweiterungen bis zu 240 Bausteine. 
Über die Firmware können bis zu 240 ROM- 
Erweiterungen zu je 16 K angesprochen 
werden. 


RAM-Erweiterung bis 9 MByte 


Wahlweise anschließbare Diskettenstation 
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* BASIC-Interpreter 


29. Der Personal-Computer >> CPC 464 


Sehr interessanter BASIC-Befehlssatz 
Grundbefehlssatz entspricht dem BASIC- 
Standard-Befehlssatz! 

- mehr als 150 BASIC-Befehle 

- erweitert in vielen Bereichen! 

- Sound-, Graphik-BASIC-Befehle 
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Schlagwortverzeichnis 


Seite 


164 
Addition ..occeecceeeecernn en. 44 
Adresse „ins. 238 
Adressen einlesen .......... 240 
Adressen löschen ........... 239 
Adressen speichern ......... 239 
Adressenteil suchen ........ 238 
Adressverwaltung ....cc000.. 231 
Aktuelles Argument ......... 175 
Alphanumerisches Zeichen .... 40 
Anfangswert ...oceooeeeennnn. 76 
Anweisung. .oecooeeeeeennneeene 38 
Anweisungskette ...ccccc000. 141 
Anweisungsnummer ..eecceeeee. 38 
Apostroph ..oscees0eceennnc. 227 
Arbeitsspeicher ............ 139 
ArCUSSINUS „oeeeeeeeeeennene. 177 
Arcustangens ....s..ceen0... 177 
Arithmetische Anweisung ..... 42 
Arithmetische Funktion ..... 164 
Arithmetischer Ausdruck ..... 42 


ABS oooesoooonnccnennnnnnne 


SCH aus eree eeeeratere enter Al07 
ASCII-Wert ........ . 152,158,212 
ASCII-Werte Tabelle .....270,271 
ATNn endete ee... 166 
AUTO: aus se ss aan 95 
BASIC. 2.00.0000 ni EEE 17 
BASIC-Befehl ......ssee000.. 277 
BASIC-Compiler ........... 19,20 
BASIC-Dialekt ...occccecceeen 18 
BASIC-Interpreter ....... . 18,20 
BASIC-Sprachregel ........ ... 48 
Bedienerführung ............ 130 
Befehlsliste .......... ee Za0 
Befehlseingabe ...... ars. 238 


Benutzereigenes Zeichen .... 200 


Benutzerfunktion......... 173 ££ 
Berechneter Sprung ..... 188,198 
Bildpunkt ...cce22... .oree.. 204 


Bildschirmaufbau ........... 161 


Seite 


Bildschirmeditor ...eeecee.... 24 
Bildschirmfenster .......... 162 
Bildschirmzone ........... 97,99 
BINS- au. 00 een 167 
Binärstelle .....ceerereee.. 202 
Binärwert ..eeeeecereeneneee 167 
Binärzahl ... .eiennenniea 8re.esa- 201 
Binärzahlen-System ......... 200 
Bit einer 200 
Bit, gesetzt ...oeeeeeceenn. 203 
Byte... wre nee 200 


CAPS LOCK-Taste .....occ0000.. 22 
CAT. sesereeene. 30,31,146 
CHAIN MERGE ....screececceree 30 


Sosersiestereneteiee ers. 100 
CLOSEIN .. seen. 225,260 
CLOSEOUT .....2c0o0s0onen00n. 30 
CLR-Taste ... 
CLS ... A 
Code-Tabelle ....... 
Compact-Kassette ... 28,29 
GONE ee arten 
Copytaste ... 


..o oo 1. 0.0 


ee ersehen. 23 


161,184,270 
are ect 27.0 


.o 0... 


GCREAL WE er Dee es 
CTRL-Taste 2... nenne. 22 
CUTSOT aa waere ZUU 
Cursorsteuertaste ........ 24,23 


DATA. en sr 
Datacorder ..... 
Dateien see 23] 
Daten ART EIER N | 
Dateneingabe „.......cser00: 
Datenstrom 
Datenträger 
Datenverarbeitung 
DEF FN 


87,88,89,92 
25,26 


.. | 1 1 1 0 00.. 


284 


Schlagwortverzeichnis 





Seite 


DEFSTR ... 
DEL-Taste ... 
Deutscher Zeichensatz ... 
Dezimalzahl 
Dezimalzahlen-System ........ 200 
Dialogpartner ....c2eeererenc. 14 
DIM „oeeeeeeereeecnnn. 114 ££,250 
Dimensionierung .. 114 £f£,121 ff 
Doppelpunkt ..crceeeeeeeereee 141 
DRAN esse. 184 
DRAWR 215 
Druckaufbereitung ....... 93,105 
Drucken ...s.ece0ceee.. 230 
Durchschnitt .....cccccr00.. 144 


..— 101011 1011000010110 01010100. 


Echo-Check „...eseeeeeeennnne 96 
EDIT 245 
Editieren ........ ie slesteiereiste 24 
Eindimensionale Tabelle .... 110 
Einfügen .o.eeccseeeeeenenne 228 
Eingabefehler .........ee... 131 
Eingabe-Schleife ........... 140 
Endwert .22eeeeseeeee.. 62,64,76 
ENTER u. 050. 94 
ENTER-Taste ....... deenejehe, a anaeie 2] 
BOF: ars. eerklerene este 2295258 
ERL- See. 203 
ERR ee 2 
ESC-Taste: u.a eier 22 
EXP: ea ee sta. 109 


Farbeode-Tabelle .......... : 
Farbtabelle .......... we, 21 
Fehleingaben ....cerccrcr000. 46 
Fehler ....ceeecccescenne. 19,78 
Fehlerarten ....cccceccrcc.. 241 
Fehlercodes ......... 241,244 ff 
Fehlerbehandlung ........... 214 
Fehlermeldung .... 19,79,214,241 
Felddimensionierung ........ 138 
Feldelement .....cecsre0e.0... 120 


: Ganzzahlkonvertierung .. 


Seite 
Feld ....... re lelsin Aregershereranete 114 
FR na len 27 
FIX sek sie ee een .... 166 
Flußdiagramm ....222222200 0. 137 
FOR: 2802er 60 ff,70 £ff,82 
Formales Argument ....... 8.175 
Formatierte Ausgabe ........ 100 
Formatierungszeichen ....... 104 


Formatvariable ............. 140 
FOR NEXT .... 60 £f,70 £f,82,259 
138,253 
Funktionsname ...cseeecee... 174 
Funktionstaste 


166, 167 
Garbage collection ......... 253 
Gleichheitszeichen .......... 42 
Gleitkommakonvertierung .... 167 
GOTO ....... 0. 142 
GOSUB ...2cer00000.. 181,182,198 
Graphik-Zeichen 273,274 


Hexadezimalwert .... 167,270,271 
HEXS sun sone 107 


LE THEN. He end 
IF THEN GOTO .....cceccc0000. . 142 
Index „essen nen dl 
Indizes... ren LI2 
Indizierung .....cccec000... 120 
Inhaltsverzeichnis ......1| £ff,31 
ee ee 161,184 
INKEY$ ..... .. 238,239 
Innere FOR NEXT-Schleife .... 70 
INPUT ....222220... 46,47,48,240 
171,226 
seeene. 166 


Kartei u. LEER 231 ££ 
Kartei blättern ......2..... 239 
Karteiprogramm ...ccccc 000 237 
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KEY eier 9 
REY DEF see RYAN: 
Kommando ...ccoeeseeesenennee 38 
Kommentar ..oocecseeesenenne. 58 
Kommentarzeile ............ .. 58 
Konstante .„..occoccoreree . 39,87 
Konvertierungsfunktion . 
Koordinate ...oeccreeer.. 22 
Kopieren ......... nee 


Laden ...occceeeeeoneee 32,33,37 
Laufanweisung ....cessscee... 63 
Laufvariable .....2o20eeeee00.. 67 
LEFTS: 2 40.500 20 re „109 
LeerzZeile „nsosssesestene 146 
LEN 169 
Lesegeschwindigkeit ......... 29 
LIST-Schutz ...oeeeceeeeseee. 35 
LOAD! ser. 32 
LOCATE 


LOG .nosoecnsssnesnen nennen. 


LINE INPUT ....oocccceccs00 


ER EEK EIER EUR >) 


165 
125 


Magnetband ....cceeeeeeeeeeee 25 
Magnetbandaufzeichnung ...... 25 
Maschinensprache ....cee..... 19 
Matrix van 213 
Matrix-Raster ..cccceceen.c. 214 
Medienverbund .ceeeeoseeee0.. 15 
Mehrdimensionale Tabelle ... 110 
MIDS „ooooceseesceeeene. 170,226 
MOVE: 2.0.00. 219 
NEXT .oooc000.0.. 60 ££f,70 £f,259 
Numerisches Zeichen ......... 40 
Nummernzeichen .......... 68, 101 


Oktalzahl. scene 
ON ERROR GOTO ....ccoc000 000 
ON GOSUB 
ON GOTO 


270 
256 
198 ££f 
188 ff 


.............00.0. 
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224 „260 
239,260 


OPENIN ........0... ER, 
OPENOUT ....ooceerencee.e 


PAUSE ..oooo00000.... A 
Pixel’ suoecsses ee 
Platztausch ...... nee 
PLAY es ee seien“ Pe | 
PLOT 2.0.23 ER 
PRINT .... 54,96, 105,122 
PRINT TAB .....22ee20000.. 105 ££ 
PRINT USING ....... o.... 
Programmablaufplan 263 ff 
Programmentstehung .......... 14 
Programmentwicklung ......... 14 
Programmierfehler ........... 78 
Programmiersprache .......... 17 
Programnschleife ... 60 £f£f,70 ff 
Projekt: Kartei 231 £f 
Projekt: Text ........... 216 ff 
Projekt: Zeichendefinition . 200 
Puffer: 4... 00.0.0800... 210,239 


Quadratwurzel 


Random access ...eeeereesen0. 25 
READ 252.222 ra .. 87 ££ 
REC e:sieieieinsr 
REM 
Reserviertes BASIC-Wort ..... 43 
RESTORE:: 2.2200. IONLE 
RESUME: ws seinen 290 
RETURN 181 ££ 
REW 2.00 ee ee 27 
RIGHTS: ss. 109 
RUN esse ae 93 


.. 010000010010 00000. 


Satz des Pythagoras ........ 177 
ee ee ee ... 34 
Schachtelung .........00000. 187 
Schalter .....ccccr0... 160 
Schleifenzähler ............. 62 
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Schreiben .....cecsercccnee. 220 
Schrittweite ...ccccc00... 61 ff 
SGN 164 
SHIFT-Taste .....o..c000000. 22 
SIN: vueeissrezen sanieren 165 
Sondertaste „.eeeeceeerennee 21 
Sortieren ..eceeeeeer00.. 148 ff 
Sortiervorgang .......... 0.193 
SPACES: San een 172 
Spalte: anna asien ar 00 
Speedload ...eeoeeeeeeeeennn. 29 
Speedwrite ...oeeeeeeeennnne. 35 
Speichergeschwindigkeit .. 29,35 
Speichern ........... 34,147,221 
SOR: 4... wenns een 103 
Starten ...=0. 0er 33 
Standardformat ........... in 293 
Standardfunktion ........ 
Stellvertretersortierung ... 
Steuerzeichen .....cccce.00. 96 
STOP nn. em 
STOP/EJECT. zu... 000000 27 
STRINGS ....:000.. 08er. el 71 
STRS 40.400.000 ee 108 
SYMBOL ..22ce00eren00nn. 204,205 
Symbol ....sss00ce0enennenee 265 
SYMBOL AFTER .....seec00000. 206 
Symbolgruppe .......... 264 
Syntaxfehler ........ 19,179,241 


TAB ... 
Tabelle .....ooeerc000c.. 110 ££f 
Tabellenarbeit .......... 110 ££f 
Tabellenart ........ 110,111,119 
Tabellenelement ............ 120 
Tabulator ...sseeeecceecnnne 105 
TAN. sie 0i0n.00sereeiise.ste. see 109 
Tastencode ...oecee000.. 218,271] 
Tastatur ..ocsec00ee00.. 21,26,94 
Telefonverzeichnis ..... 127,129 
Textcursor „oseoseseeeeereenen 99 


105 ££ 


Seite 


Texteingabe .......ccccs00.. 221 
Textverarbeitung 216 
TRACE-Modus ...ocecceeonenee 81 
Trigonometrische Funktion .. 165 
TROFF: u... 0 ne Il 
TRON „oo00000c00uconeen... 79,81 


Unnamed file .. 
Unterprogramm ..ecr.cre... 
VAL TEE een. 108 
Variable .....oore00e000.. 39,87 
Variablenliste ...o.ccccse0.. 43 
Vektor +. nem Lil 
Vektorelement ...vcccecc0r0. 


Währungsumrechnung ..... 193,194 
WHILE WEND ....2cse00sccs000.. 262 
WINDOW „2220 e00ee0000n.. 161,237 
WINDOW SWAP ...cecc000. are 
WRITE ...socenos0e0s0onn nn. . 
Zeichen ....... 204 
Zeichendefinition 
Zeichenkette ....... . 41,148,168 
Zeichenkettenfunktion .. 169,226 
Zeichenkettenliteral .... 41,122 
Zeichenkettenvariable ...... 4] 


Zeichenkettenwert .......... 168 
Zeichenkonvertierung ..... .. 167 
Zeileriscshrereteiesrere ne PETER | 19) 
Zeilennummer ....s..0.. ee 227 
Zentrierfunktion ...... TERROR I ft) 
ZONE: 22... 0er are 299 
Zweidimensionales Feld . 120,121 
Zweidimensionale Tabelle ... 127 
Zwischenspeichern ......... . 173 
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DAS STANDARD BASIC-BUCH zum Schneider-Computer CPC 464 
E. Unger Best.-Nr. B-201 


NEUERSCHEINUNG. Das Standardwerk zum Schneider-Computer CPC 464! 


"Auf ca. 290 Seiten eine klare und verständliche Einführung in die Programmiersprache 


BASIC mit allen BASIC-Kommandos und einer ausführlichen Beschreibung der Arbeit 
mit dem Datacorder, dem Cassettenteil des Computers. Das Buch überschüttet den 
Lernenden nicht mit einer Fülle von Informationen, sondern führt ihn behutsam an den 
Lernstoff heran. Der Leser wird in die Lage versetzt, unmittelbar am Computer arbei- 
tend, das Gelernte in die Praxis umzusetzen. Die Anleitungen sind durch die Art der 
Aufgabenstellung und die schrittweise Darstellung der Lösungswege auf die Bedürfnis- 
se des Selbstunterrichts abgestellt. 


Das Buch ist praxisbezogen: Schon nach wenigen Kapiteln ist der Leser imstande 
BASIC-Programme zu verstehen und eigene kleine Programme zu schreiben. Der Ein- 
stieg in die neue Materie „Logik des Programmierens” wird Ihnen durch sorgfältige 
Aufbereitung des Lehrstoffes so leicht wie möglich gemacht. 


Alle englischen Fehlermeldungen des CPC464-BASIC werden in das Deutsche über- 
setzt und eingehend erläutert. Die möglichen Fehlerursachen werden aufgezeigt und 
- wenn nötig - durch Programm-Beispiele erklärt. 


Ein Spitzenbuch mit über 50 praxisnahen Übungs- und Anwenderprogrammen. 


Alle diese Programme finden Sie auf einer Cassette, die Ihnen die riesige Mühe des 
Eintippens erspart. Lesen Sie dazu auch die Beschreibung zur Programm-Cassette in 
diesem Prospekt. 


Sie erhalten ein umfassendes und außerordentlich reichhaltiges Fachbuch, das Ihnen 
das Tor zu Ihrem neuen Computer, dem Schneider CPC 464 öffnet. Ein Buch also, das 
Sie begeistern wird. 


Buch und Cassette im Verbund sind die richtigen Begleiter auf Ihrem Weg zum Exper- 
ten am Schneider-Computer CPC 464. 


ca. 290 Seiten 68,- DM 


DIE PROGRAMM-CASSETTE zum Buch: 


DAS STANDARD BASIC-BUCH zum Schneider Computer CPC 464 
E. Unger Best.-Nr. C-204 





Die Programm-Cassette enthält die Beispielprogramme des STANDARD BASIC- 
BUCHS und ist hervorragend geeignet, Ihnen die praktische Arbeit und das Training am 
Computer ganz wesentlich zu erleichtern. PROGRAMM-CASSETTE laden und mit dem 
Schneider-Computer üben, das macht den Meister. 


Die Palette der Programme geht von einfachen BASIC-Übungsprogrammen bis zu 
nützlichen Anwenderprogrammen wie zum Beispiel: 


* Sortierprogramm 
* Programm zur Umrechnung fremder Währungen 


* Programm zum Erstellen eines beliebigen Zeichenvorrats (Tasten können belie- 
big belegt werden) 


# Dienstprogramme (Hiermit können sämtliche mathematischen, chemischen, physi- 
kalischen sowie internationale Zeichensätze mit dem Computer vereinbart und ge- 
nutzt werden) 


* Textverarbeitung (Schreiben von Texten, Ablegen und Einlesen eines Briefzeilen- 
programmes, Einfügungen, Druckerausgabe) 


* Kartei (Verwalten von bis zu 200 Adressen, elegante Benutzerführung, Adressen- 
eingabe im Dialog, Sichern der Adressen auf dem Datacorder, Einlesen von gespei- 
cherten Adressdateien, Suchen von Adressen nach frei wählbaren Suchbegriffen, 
Blättern der Adressdatei, Löschen einzelner Adressen, Neueingabe von Adressen 


# Mein Kassenbuch (Einnahmen-Ausgaben Abrechung) 


* Mein Telefonbuch (Auswahl aus erfaßten Tel.-Nummern nach Namen und Ruf- 
nummern) 


* und viele nützliche Programme mehr... 


Die Cassette enthält über 50 Programme, die Sie nicht mehr mit riesiger Mühe einzutip- 
pen brauchen. Vor allem aber ersparen Sie sich viele Fehler und viele Korrekturen. Sie 
können „Gleich zur Sache” kommen. 


Die Cassette hilft Ihnen, schon nach kurzer Zeit BASIC-Programme zu verstehen, 
selbst zu verändern (erweitern oder kürzen) und so schneller als sonst üblich, eigene 
kleine Programme zu schreiben. 


Auch diese Cassette wird Sie begeistern, sie gehört zu Ihrem Schneider-Computer ge- 
nauso wie das STANDARD BASIC-BUCH. 


Weniger als 1,50 DM je Programm 
Über 50 Übungs- und Anwenderprogramme 74,- DM 





DAS GROSSE BASIC-LEXIKON zum Schnelder-Computer CPC464 
NACHSCHLAGEWERK UND PROGRAMMSAMMLUNG FÜR ANFÄNGER UND FORTGESCHRITTENE 
Erstellt von einem Autorenteam Best.-Nr. B-203 


NEUERSCHEINUNG. Mit der Erfahrung viele Programmiererjahre hat das Autorenteam 
für Sie ein Nachschlagewerk von besonderer Qualität geschaffen. 


Im GROSSEN BASIC-LEXIKON finden Sie den gesamten umfangreichen Befehlssatz 
(ca. 180 Befehle und Funktionen) des Schneider-Computers CPC464. Es kommt aber 
noch viel mehr hinzu. 





Alle Befehle und Funktionen sind nach einem klaren, leicht verständlichen Schema in 
alphabetischer Ordnung wie folgt dargestellt: 


1. BASIC-Schlüsselwort 

2. FORMAT (Schreibvorschrift)) 

3. ZWECK (Wofür wird das Schlüsselwort benötigt) 
4 


. ANWENDUNG (Ausführliche Erläuterung des Schlüsselwortes und Vorbereitung 
des Programmbeispiels) 


5. PROGRAMM-BEISPIEL 

6. ERGEBNIS (Das Ergebnis des Beispielprogramms wird - wenn nötig - be- 
sprochen) 

7. VERGLEICHSHINWEISE (Es wird auf vergleichbare Schlüsselwörter verwiesen) 

Dieses Nachschlagewerk hat also neben seinem Charakter als Lexikon noch den un- 


schätzbaren Vorteil, auch eine wertvolle Programmsammlung zu sein mit einem hohen 
Nutzwert für Sie als Programmierer. 


Sie können zu jedem Zeitpunkt eingehende Informationen zum gewünschten Schlüs- 
selwort nachschlagen. 


Eine Stärke des Buches sind die auf das Schlüsselwort ausgerichteten Programm- 
Beispiele, denn dort finden Sie - eingebettet in das Programm - die Art und Weise. 
wie das Schlüsselwort zu benutzen ist. 


Deshalb ist beim Lernen und Erstellen eigener Programme für Ihren Schneider CPC 
464 DAS GROSSE BASIC-LEXIKON eine wertvolle und unerläßliche Hilfe 


Alle diese Programme finden Sıe ebenlalls auf einer PROGRAMM-CASSETTE. Damıt 
haben Sie auch hier wieder dıe Möglichkeit auf bequeme Art und Weise am Schneider 
Computer zu üben und zu lernen 


Eine wertvolle Buchseite für weniger als 30 Pfennige 
ca. 200 Seiten 58.- DM 





DIE PROGRAMM-CASSETTE zum Buch: 
DAS GROSSE BASIC-LEXIKON zum Schneider-Computer CPC 464 
Erstellt von einem Autorenteam Best.-Nr. C-205 


DIE PROGRAMM-CASSETTE enthält die Beispielprogramme des GROSSEN BASIC- 
LEXIKONS und ist hervorragend geeignet, Ihnen die praktische Arbeit und das Training 
am Schneider-Computer ganz wesentlich zu erleichtern 


Über 150 Programmbeispiele erläutern Ihnen am Bildschirm, wie jedes Programm- 
Schlüsselwort sachgerecht in entsprechende Programm-Anweisungen eingebracht 
wird. 


Sie haben somit die Möglichkeit in alphabetischer Ordnung gezielt auf das gewünschte 
Schlüsselwort zuzugreifen und dort das geeignete Beispiel für Ihren Anwendungsfall zu 
finden. 


In dem der Cassette beigefügten Bedienungsheft finden Sie Vorschläge für die Nutzung 
der Cassette beim Lernen und Üben. So enthält dieses Heft ausführliche Hinweise zur 
gezielten Wiederhoiung des Lernstoffes in zusammengehörigen Gruppen verwandter 
Schlüsselwörter. 


Auch diese Cassette ist eine wertvolle Ergänzung Ihrer Lernmittel aus dem Heim- 
VERLAG zum Schneider-Computer CPC464 


Weniger als 50 Pfennige je Programmbeispiel. 
Über 150 Programmbeispiele 74.- DM 





BASIC leicht und schnell gelernt am Schneider-Computer CPC 464 
Prot. Dr. W. Voß Best.-Nr. B-202 


NEUERSCHEINUNG. Ein weiteres Spitzenbuch zum Schneider CPC 464 für Einsteiger. 
Es wird keine Programmiererfahrung vorausgesetzt. Auf der Grundlage langjähriger 
Unterrichtserfahrung hat der Autor 16 Lerneinheiten entwickelt. Zugeschnitten auf den 
Schneider CPC 464 wird der Leser Schritt für Schritt in die „Geheimnisse der BASIC- 
Programmierung eingeführt. 





Dies gelingt deshalb so besonders gut, weil das Erlernen der notwendigen Grundkennt- 
nisse vor allem anhand einfacher Programmierbeispiele erfolgt (Jeder weiß: „Ubung 
macht den Meister!”). 


Anhand praktischer Beispiele wird unter Verzicht auf das zumeist unverständliche 
„Fach-Chinesisch” der Leser mit seinem Schneider CPC 464 umgehen und ihn beherr- 
schen lernen. 


In allen Themen wurde auf eine sorgfältige und leicht verständliche Aufbereitung großer 
Wert gelegt: Noch nie war es einfacher, die Programmiersprache BASIC in ihren 
Grundlagen zu erlernen. 


Eine wertvolle Buchseite für weniger als 23 Pfennige. 
ca. 300 Seiten 


AUTOREN GESUCHT 
Sie 


...sind an mehr Information 
interessiert 


..können Programme zur Verölfentlichung anbieten 
...können über Anwendungen berichten 


...wollen über ein Thema zu Microcomputern 
schreiben 


Wir der H4esm-Verlag suchen 
..Ihre Erfahrungen an 

...Ihre Programme aus allen Bereichen 
...Ihre praktischen Anwendungen 

..Ihre Berichte, Tips + Tricks 

...Ihre selbstprogrammierten Spiele 


„„.Routinen und Uililitys, die sich Anwender selbst 
geschrieben haben 


Bei Veröffentlichung zahlen wir ein HONORAR. 


Schreiben Sie uns. 


Bücher und Programm-Disketten aus dem Weim-Verlag gibt es bei allen 
FACHHANDLERN, in den Computer-Abteilungen der KAUFHAUSER und im BUCHHANDEL. 
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Ein BASIC-Lehrgang im Dialog 
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